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APPLE 微型 计算 机 是 当前 流行 的 八 位 微型 机 之 一 。 
近年 来 ， 我 国正 在 大 量 引进 ， 同 时 也 已 引进 、 编 译 了 若干 使 ， 
用 手册 ， 给 开发 应 用 带 来 了 不 少 方便 。 但 从 目前 接触 到 的 手 
册 来 看 ， 多 数 是 从 生产 厂家 角度 出 发 介绍 微机 的 一 般 使 用 方 
法 ， 虽 具有 一 定 的 广度 ， 然 其 内 容 则 过 于 庞杂 。 尤 其 是 这 一 
类 使 用 手册 ， 对 于 用 微机 进行 数据 处 理 方面 的 内 容 更 是 介绍 
得 不 够 充分 。 本 书 就 是 想 弥 补 这 方面 的 不 是 ， 并 从 使 用 者 的 
角度 来 编写 APPLEI 微机 使 用 手册 的 。 我 们 力求 用 最 党 
用 、 最 简单 的 B AS IC 语言 进行 编写 ， 同 时 注意 到 内 容 安排 
合理 、 文 字 简明 扼要 ， 以 帮助 读者 较 快 掌握 APPLE [机 
的 一 般 操 作 和 应 用 ， 为 今后 进一步 的 开发 应 用 打下 一 定 的 基 
础 。 此 外 ， 本 书 也 可 作为 使 用 两 个 操作 系统 的 一 本 实用 工具 
书 。 本 书 仅 一 般 地 介绍 了 B AS ITC 语言 ， 重 点 放 在 APPLE 
I 机 上 所 用 语言 的 具体 规定 。 另 考虑 到 我 国 较 多 使 用 APPLE 
K 机 作 数据 处 理 的 ， 故 我 们 对 数据 处 理 方面 的 内 容 就 介绍 得 
详细 些 。 特 别 在 书 中 专用 一 章 提 供 了 一 批 数据 处 理 程序 ， 主 
要 是 常用 的 多 元 分 析 方 面 的 程序 ， 也 适当 介绍 了 几 个 有 关 人 
事 及 工资 管理 方面 的 程序 ， 以 供 这 方面 工作 的 同志 参考 。 为 
了 便于 交流 ， 我 们 对 计算 机 专业 用 语 力求 标准 化 ， 全 书 中 的 
有 关 术 语 均 以 一 九 七 七 年 人 民 邮 电 出 版 社 出 版 的 《英汉 计算 
技术 辞典 》 为 准 。 

书 中 第 四 章 第 二 节 和 第 三 节 是 刘 功 庆 同 志 编写 的 ， 第 四 
章 的 逐步 回归 程序 和 判别 分 析 程 序 分 别 是 王 雅 飞 和 李 永 顺 同 
志 提供 的 。 全 书 承蒙 国家 气象 局 高 级 工程 师 吴 贤 续 同志 校 审 ， 


并 提出 了 不 少 宝贵 的 意见 ， 作 者 谨 致 以 衷心 的 感谢 。 
由 于 我 们 水 平 所 限 ， 廖 误 之 处 请 读者 批评 指正 。 
作者 
1984 年 12 月 


第 一 章 “” APPLE I 微型 机 简介 


$ 1.1 APPLET 微型 机 的 构成 及 安装 


APPLE I 基本 系统 包括 主机 、 磁 盘 驱 动 器 (或 磁带 
录音 机 )、 键 盘 、 显 示 器 及 打印 机 ， 它 们 分 别 用 电缆 与 主机 连 
接 。 

1.1.1 主机 

主机 是 计算 机 的 核心 ， 其 余 都 是 外 部 设备 。 APPLE 
[的 主机 与 键盘 是 组 装 在 一 起 的 ， 内 部 通过 电缆 连接 。 键 盘 
安装 在 主机 最 前 面 的 位 置 上 。 打 开 主 机 的 盖子 就 能 看 到 内 部 
结构 ， 其 中 ， 后 方 最 左边 是 开关 型 电源 ， 输 入 交流 电压 110/ ， 
220 伏 任 选 。 电 源 开 关 就 在 机 器 后 背 , 电 源 线 是 三 芯 线 ， 功 率 
消耗 全 载 为 60 瓦 ， 允 许 瞬 间 过 载 为 79 瓦 。 电 源 输出 电压 有 四 
种 ，+5 伏 ，--5.2 伏 ，+11.8 伏 ， 一 12 伏 。 

主机 底板 的 8 个 50 芯 连接 插 模 的 前 方 ， 有 一 片 特别 天 的 
集成 电路 块 ， 这 是 APPLE I 的 主脑 。 它 是 美国 MO S 技 
术 公 司 出 品 的 6502 微 处 理 器 ， 其 基本 指标 如 下 ， 

基本 指令 ，56 条 。 

基本 寻 址 方式 ，13 种 。 

寻 址 范围 ， 65536 个 字 节 〈 即 64 开 字 节 )。 

基本 字 长 ， 8 位 。 

运算 速度 ， 每 秒 50 万 次 加 、 减 法 运算 。 

地 址 总 线 ，16 位 平行 。 

数据 总 线 ， 8 位 并 行 、 双 向 传送 。 


在 中 央 处 理 单元 CCP U)6502 的 正 前 方 是 6 个 只 读 存 贮 
器 (ROM)， 共 有 12K 存 贮 空间 ， 其 中 2 K 是 系统 监控 程序 
或 APPLE 自 启动 监控 程序 ， 其 余 10K 是 APPLE SOFTT 
BASIC 解释 程序 或 APPLEHT 整 型 BASIC 解 释 程 序 等 。 

在 ROM 的 前 面 是 APPLE [的 随机 存 取 存 贮 器 

(R AM)， 总 计 有 49, 512 个 字 节 〈48 开 字 节 ) 的 存 贮 单元 ; 
只 要 在 主机 外 接 捅 槽 上 加 揪 语 言 插件 ， 就 可 把 主机 R A M 扩 
充 到 64 开 。 

。， APPLE 工 主板 上 还 有 其 它 一 些 元 件 和 集成 电路 片 ， 
共同 完成 计算 机 之 间 信 息 交 换 、 屏 幕 显示 以 及 声响 控制 等 功 
能 。 

主机 板 的 最 后 面 是 8 个 50 芯 插 档 ， 捅 槽 编号 从 0 到 7, 每 ， 
个 揪 槽 可 播 入 一 块 外 部 设备 的 插件 (C ard) 用 来 扩展 R A M 
和 ROM, 连 接 打 印 机 或 其 它 输入 输出 设备 以 及 通讯 设备 等 。. 
主机 后 方 除 电源 插 槽 及 开关 外 ， 还 有 连接 视频 显示 的 插 
孔 以 及 用 录音 机 输入、 输出 的 捅 孔 。 
1.1.2 键盘 
键 数 : 52 个 键 。 为 分 清 数字 键 零 与 字符 键 O, 显 示 和 打印 
时 常常 用 0 代表 数字 有 零 。 
， 使 用 码 : 大 写 的 AS CI I 码 (美国 信息 交换 标准 代码 )， 
见 第 二 章 附录 (一 ) 。 
码 数 ， 91 个 。 
转换 键 〈(S HIFT 键 ): 2 个 。 
特殊 键 ， CTRL 等 6 个 键 。 
键盘 和 主 电路 板 间 以 一 条 16 芯 扁平 电缆 相连 接 。 键 盘 最 
前 面 有 个 红 指 示 灯 , 指示 主机 电源 是 否 接 通 ， 按 下 这 个 按钮 ， 
”再 打 键 盘 上 的 字母 ， 就 是 小 写字 母 。 
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1.1.3 视频 显示 器 

视频 显示 器 可 用 彩色 及 黑白 显示 器 ， 计 算 机 专用 的 显示 
器 ， 只 要 用 信号 电缆 从 主机 后 部 的 V ideo 输 出 端 ， 接 到 显示 
器 的 V ideo 的 输入 端 即 可 ;， 若 显示 器 用 家 庭 电 视 机 ， 则 必须 
通过 REF 调制 器 相连 接 。 

显示 器 有 三 种 显示 方式 : 

文本 方式 (TEXT modej: 24 行 ， 每 行 40 个 字符 ， 共 
计 960 个 字符 ， 每 个 字符 为 5x 7 个 点 阵 组 成 ， 具 有 白 黑 闪 亮 
光标 。 

低 分 辩 率 图 形 方式 ，40 行 ，48 列 ， 共 有 1920 个 方块 ， 有 
16 种 颜色 选择 。 . 

高 分 辩 率 图 形 方式 ，280 行 ，192 列 ， 共 计 53760 个 点 ,可 
选择 6 种 颜色 。 

1.1.4 磁盘 驱动 器 

磁盘 驱动 器 是 微型 机 的 重要 外 部 设备 。APPLE II 机 
所 用 磁盘 驱动 器 为 DIS K I 系统 的 组 成 部 分 。 磁 盘 驱 动 器 
通过 扁平 电缆 连接 到 驱动 器 控制 插件 插脚 上 ， 每 个 驱动 器 控 
制 板 插件 可 以 连接 两 个 磁盘 驱动 器 ， 插 件 上 标 有 DRIVE 1 
的 插脚 接 第 一 个 驱动 器 ，DRIVE 2 的 插脚 接 第 二 个 驱动 
器 。 驱 动 器 电缆 连 到 插件 上 以 后 ， 就 把 捅 件 插 到 主机 的 外 接 
搬 槽 上 去 (注意 : 主机 电源 必须 是 断 开 的 ), 除 零 号 揪 槽 以 外 ， 
.其它 插 槽 都 可 以 插 ， 一 般 捅 在 第 6 号 插 槽 上 较 好 ，APPLE 
机 的 许多 软件 都 按 这 种 选 定编 写 。APPLE I 主机 可 以 插 
三 块 驱动 器 插件 ， 亦 即 可 以 连接 6 个 磁盘 驱动 器 ， 但 是 一 般 


”情况 下 ， 连 接 2 个 磁盘 驱动 器 就 够 了 。 本 书 介绍 使 用 时 均 以 


2 个 驱动 器 为 例 ， 搬 件 也 捅 在 6 号 撒 醒 来 考虑 。DISK 了 
所 用 磁盘 〈 也 称 软盘 ) 是 5.25 英 寸 大 小 的 单 面 单 密度 磁盘 ， 
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可 以 贮存 143 开 字 节 容量 。 

磁盘 驱动 器 价格 昂贵 ， 结 构 精 密 ， 维 修 要 较 高 技术 和 设 
备 。 磁 盘 驱 动 器 主要 由 软盘 控制 器 、 步 进 马达 、 磁 头 和 磁头 
的 定位 装置 等 组 成 ， 使 用 时 应 该 注意 ， 

(1) 轻 拿 轻 放 ， 避 免 剧 烈 震动 ， 以 兔 定位 机 构 松 动 ， 特 
别 是 在 需要 运输 时 ， 一 定 要 妥善 包装 ; 
(2) 驱动 器 工作 时 ， 不 要 移动 
(3) 不 要 在 马达 旋转 过 程 中 〈 即 驱 动 器 红 灯 亮 时 ), 插入 
”或 拿 出 软盘 ; 

(4) 控制 温 升 变化 ， 温 升 变化 范围 应 小 于 每 小 时 15"C， 

(5) 环境 温度 的 要 求 一 般 在 4 一 40C 之 间 ; 

(6) 特别 要 避免 灰尘 侵袭 ， 不 要 把 沾 有 灰尘 的 软盘 片 搬 
入 到 磁盘 驱动 器 中 去 ， 可 用 磁带 清洗 液 或 95% 的 酒精 清洗 磁 
头 ; 

(7) 必须 远离 磁场 发 生源 ， 要 求 离 电视 机 至 少 60 厘米 以 
上 ;， 停止 工作 时 ， 不 要 将 软盘 留 在 驱动 器 上 。 

1.1.5 打印 机 

打印 机 有 各 种 类 型 ,但 都 是 通过 扁平 电缆 连接 到 插件 上 ， 
插件 再 插 到 主机 的 插 槽 上 ， 一 般 插 在 第 1 号 插 槽 本 书 说 明 
文字 均 已 假定 打印 机 插件 已 插 在 第 1 号 择 槽 ) 。 

各 种 类 型 打印 机 的 使 用 方法 不 同 ,要 看 具体 的 使 用 手册 。 
最 便宜 的 打印 机 ， 如 - 80 打 印 机 只 能 打印 字符 , 不 能 有 效 地 
打印 汉字 。 流 行 的 EPSON MX-80 [型 打印 机 是 一 种 击 打 ` 
式 点 阵 打 印 机 ， 字 符 组 成 gx 7 点 阵 ， 除 打印 字符 外 ， 主 机 只 
-要 配 上 汉字 库 就 可 打印 汉字 而且 可 以 用 程序 控制 打印 的 字 
符 间 距 、 行 间距 以 及 每 行 打印 的 字符 数 ， 亦 能 打印 图 形 ， 又 
能 顺 行 及 逆行 打印 ,速度 较 快 。 另 一 种 型 号 的 打印 机 EPSON 
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MX-100 则 可 打印 宽 行 规格 , 每 行 最 多 可 打印 136 个 字符 ， 
打印 速度 更 快 一 些 。 

以 上 介绍 的 是 APPLE II 机 的 基本 系统 。 除 此 以 外 ， 
APPLE LI 还 有 其 它 功能 ， 一 般 是 通过 其 它 的 插件 连 到 有 
关 设 备 上 来 实现 ， 这 将 在 下 一 节 介 绍 。 这 里 要 强调 的 是 ， 在 
安装 机 器 时 ， 特 别 是 把 反 件 插入 外 接 捅 槽 时 ， 一 定 要 先 关闭 
电源 ， 不 然 不 但 会 损坏 插件 ， 甚 至 会 损坏 主机 。 插 件 脚 不 要 
用 手 摸 ， 安 装 前 最 好 用 酒精 擦 干净 ， 捅 入 插 模 要 牢靠 。 


$ 1.2 APPLE E 微 型 机 的 主要 功能 及 应 用 


1.2.1 功能 及 应 用 

(1) 利用 上 述 APPLE UL 机 的 基本 系统 ， 可 进行 于 数 
据 和 字符 处 理 以 及 存 取 等 操作 ， 并 作为 一 个 独立 的 微型 计算 
机 系统 使 用 。 

(2) 可 以 在 APPELE HI 的 外 接 播 槽 插 上 2Z -80 捅 件 ， 
' 使 APPLE 8 变 成 一 个 Z -80 机 ,能 运行 CP /M 操 作 系 统 ， 
执行 MICROSOFT BASIC 语 言 , 用 于 数据 及 字符 处 理 。 
在 APPLE HE 外 接 揪 槽 插 上 MC 68000 捅 件 ， APPLE 
工 机 就 可 以 作为 准 16 位 机 使 用 ， 能 运行 MC 68000 机 的 系统 
软件 ， 也 可 作为 MC 68000 机 的 终端 机 。 

(3) 在 外 接 搬 槽 上 插 上 串 行 接口 (EIA R S -232C ) 搬 
件 ， 可 用 于 计算 机 通讯 及 外 接 串 行 输出 设备 ;在 半 双 工 通讯 
下 ， 每 秒 传 送 75 一 19200 波 特 (Baud) 。 、 

(4) 在 外 接 播 槽 上 插 上 并 行 接口 (IEEE-488 标 准 总 线 
接口 ) 插件 ， 既 用 作 与 仪器 仪表 的 通讯 ， 又 可 用 作 与 外 部 设 
备 的 接口 。 

(5) 在 外 接 插 模 上 插 上 D/A，A/D 转 换 控制 板 ， 主 机 
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即 相 控制 模 / 数 和 数 / 模 转换 ， 用 于 各 种 控制 工作 。 

-1.2.2 多 种 高 级 语言 

在 APPLEH 上 可 以 运行 多 种 高 级 语言 ， 主 要 是 : 

(1) APPLE SOFT BASIC 语言 是 浮 点 BASIC 
语言 ， 这 种 语言 简单 易学 ， 适 合 初学 者 使 用 ; 

(2) INTEGER BASIC 语 言 是 整 型 BAS IC 语言 ， 
运行 速度 比 APPLE SOFT BASIC 快 ， 但 用 于 数据 
处 理 有 局 限 性 ， 例 如 不 能 处 理 带 有 小 数 的 数值 等 ; 

(3) MICROS OFT BASIC 语 言 ， 是 在 APPLE 
机 播 入 Z -80 微 处 理 器 插件 后 可 以 运行 的 语言 系统 ; 

(4) APPLE FORTRAN 语 言 ， 比 美国 标准 的 
FORTR AN 77 在 某 些 方面 更 具有 扩展 性 ， 适 用 于 科学 和 
工程 计算 ; 

(5) COBOL-80 语 言 适 宜 用 于 处 理 数 据 繁 多 而 运算 简 
单 的 问题 ， 主 要 功能 是 描述 数据 结构 和 分 析 处 理 大 批量 的 数 
据 ， 广 泛 应 用 于 商业 及 文书 表格 处 理 ; 

(6) APPLE PASCAL 语 言 PASCAL 语 言 
中 体现 了 结构 程序 设计 的 原则 ， 可 用 于 数值 计算 ， 又 适合 描 
述 系 统 软件 的 各 种 算法 , 常用 来 作为 软件 移植 和 教学 的 工具 。 

1.3 APPLEI 微 型 机 的 发 展 

1.3.1 发 展 简 史 

1975 年 在 美国 加 利 福 尼 亚 州 旧金山 市 南部 的 卡 帕 提 尼 的 
， 小 镇 上 ， 有 年 轻 的 两 兄弟 约 伯 ', 史蒂芬 和 奥 斯 尼 雅克 ，, 史 划 
芬 , 对 当时 刚刚 兴起 的 微电脑 非常 感 兴趣 .他们 利用 业余 时 间 
组 装 了 第 一 部 微型 机 ,受到 了 朋友 们 的 热烈 欢迎 。 同 时， 应 朋友 

” 们 的 要 求 很 快 承接 了 再 组 装 50 部 微型 机 的 订单 ， 并 以 30 天 为 


期 肉 购 了 一 批 价值 25000 美元 的 零 部 件 ， 开 展 了 成 批 制造 微 
型 机 的 业务 。 为 纪念 约 伯 上 大 学 时 期 曾 在 一 家 革 果 园 里 做 过 
工 ， 他 们 将 所 研制 的 微型 机 命名 为 APPLE HI ( 即 苹果 工 . 
型 ), 随 之 建立 了 APPLE 1 微型 机 公司 ， 且 将 初创 时 期 
兽 研 制 过 的 单 板 机 也 追认 为 APPLE I 型 机 。 所 以 ， 实 际 
进入 市 场 的 微型 机 一 开始 就 是 APPLE [ 。 它 于 1977 年 进 
入 世界 市 场 ， 由 于 性 能 优良 、 价 格 便宜 ， 很 适合 家 庭 、 个 人 
和 小 单位 使 用 ， 被 誉 为 微机 发 展 的 第 一 个 里 程 碑 。1979 年 ， 
它 在 全 美 8 位 微机 销售 量 中 名 列 第 一 。1980 年 底 ，APPLE 
公司 推出 了 APPLE 亚 。 1981 年 秋天 ， 美 国联 邦 通讯 委员 
会 确认 APPLE 下 的 射频 干扰 超过 标准 而 不 准 生 产 ， 故 
APPLE 公 司 又 研制 了 APPLE 耻 PLUS, 这 样 APPLEE 
工 的 大 部 分 软件 也 可 以 在 它 上 面 运行 .1983 年 1 月 ,APPLE 
公司 推出 APPLE He 微型 机 ， 人 性 能 比 APPLE 开 又 有 较 
大 改进 ， 已 可 配置 光标 定位 器 。1984 年 初 ， APPLE 公司 
又 推出 操作 系统 PRODOS ， 为 APPLE Ie 增加 了 硬盘 
机 及 窗口 管理 功能 。1984 年 初 ，APPLEL 巨 公司 同时 又 宣布 
可 以 用 16 位 微 处 理 器 65816 或 65802 来 改造 日 的 APPLE 开 
机 。 这 两 种 微 处 理 器 都 与 6502 微 处 理 器 完全 兼容 ， 特 别 是 改 
造 APPLE I 较为 方便 ， 只 要 拔 下 6502， 插 上 65802 ,就 可 
把 原来 的 8 位 机 变 成 16 位 机 了 。 

微机 的 发 展 方向 是 组 建 计 算 机 局 部 网 络 ， 实 现 计 算 机 
之 间 的 数据 通信 以 及 共享 昂贵 的 外 设 资 源 。1980 年 美国 
CORVUS 公 司 开始 研制 OMNINET 局 部 地 区 网 络 ，1982 
年 春天 出 售 第 一 批 正式 产品 。 这 样 , APPLE I 微机 也 能 连 
到 这 个 网 络 上 ， 并 组 成 APPLEH 与 IJBM PC 机 共存 的 
局 部 网 络 。 


了 


1.3.2 各 种 类 型 
APFPLE I 机 有 几 种 不 同 的 类 型 ， 它 们 有 的 是 在 电路 
. 板 上 做 了 改进 ， 也 有 的 是 系统 软件 做 了 改进 。 例 如 旧式 的 
APPLE I 机 就 没有 自 启动 ROM， 而 是 APPEE 系 统 
监控 程序 ROM, 这 样 ,有 些 键盘 功能 (如 ES C-TI 功 能 ) 就 
没 法 用 :而 APPLE I PLUS 型 微机 就 具有 自 启动 ROM， 
主机 板 上 有 APPLESOFT BASIC 解 释 程序 等 ; APPELE 
工 。 则 还 有 自动 引入 诊断 程序 等 功能 。 

目前 国内 用 得 较 普 遍 的 是 APPLE 1 PLUs 型 微机 ， 
”本 书 介 绍 的 内 容 以 RAM 为 64K 的 APPLE HI PLUS 微 
机 为 标准 。 


ReO 几 O7KSAC7 
朝 姐 工作 党 


第 二 音 APPLESOFT 
BASIC 语 言 


$ 2.1 APPLEHLBASIC 语 言 
的 几 种 工作 方式 


前 面 提 到 在 APPLE IT PLUS 型 微型 机 的 主 印刷 电 
路 板 的 ROM 中 装 有 APPLESOFT BASIC 的 解释 程 
序 ， 当 机 器 处 于 这 种 工作 状态 下 时 ， 在 显示 屏 上 出 现 的 提示 
符 是 ]， 机 器 还 存在 一 种 工作 方式 , 即 是 处 于 监督 程序 方式 ， 
在 显示 屏 上 的 提示 符 是 兴 ;， 当 用 版 本 是 3.3 的 系统 盘 引入 磁 
_ 盘 操 作 系统 (DOS ) 时 ， 会 把 INTEGER BAS IC( 整 型 
B AS'IC ) 解 释 程序 装 入 机 器 ， 当 机 器 处 于 它 的 工作 状态 下 
时 ， 显 示 屏 上 的 提示 . 符 是 》。 可 以 使 这 三 种 工作 方式 互相 转 
换 ， 在 显示 屏 上 表现 为 三 种 提示 符 的 互相 转换 。 

2.1.1 提示 符 ] 与 》 的 转换 

若 机 器 提示 符 是 ]， 则 键入 INT 命 令 , 即 转变 为 》, 表 
示 转 变 为 整 型 B AS IC 工作 状态 了 ;， 若 机 器 提示 符 是 ;: 则 
键入 FEP 命令 , 此 时 提示 符 变 成 ] , 即 机 器 已 转 入 APPLE 
SOFT BASIC 工 作 状 态 。 这 两 种 提示 符 相 互 转换 过 程 中 ， 
不 破坏 磁盘 操作 系统 ， 但 将 丢失 已 打 到 机 器 中 去 的 程序 。 

2.1.2 提示 符 兴 与 ] 了 或》 的 相互 转换 

若 机 器 提示 符 是 ] 或 》， 则 键入 CALL -151 命 令 , 变 成 
关 提 示 符 ， 其 旁 为 闪 亮 的 光标 ， 表 示 机 器 已 进入 监控 程序 ; 
若 又 要 从 关 返 回 到 APPLES OFT 工作 状态 ， 则 可 键入 
关 3D0G。 这 种 提示 符 的 相互 转换 方法 ， 不 破坏 磁盘 操作 系 
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统 ， 也 不 委 失 已 打 到 机 器 中 去 的 程序 。 
车 机 器 提示 符 是 兴 ， 键 入 LN 命令 则 转 为 》， 若 机 器 
提示 符 是 兴 ， 键 入 FE 命令 ， 则 转 为 了 。 这 种 转变 方式 ， 只 
保留 了 磁盘 操作 系统 ， 已 打 入 机 器 中 的 程序 将 全 部 丢失 。 
在 提示 符 转 换 中 ， 若 键入 FP 命令 后 , 显示 的 是 “PRO- 
GRAM TOO LARGE”( 程 序 太 大 ) 信息 的 话 ， 则 应 
该 打 入 INT 来 使 系统 复位 ,然后 再 打 入 FEP 命令 ， 即 可 顺利 
转换 。 
以 下 我 们 将 介绍 APPLES OFT BASAIC 的 有 关 操 
作 。 


2.2 磁盘 操作 系统 


2.2.1 磁盘 操作 系统 (DOS ) 的 引入 

磁盘 操作 系统 控制 了 主机 与 磁盘 机 的 信息 交换 ， 开 机 时 
首先 碰 到 的 就 是 把 磁盘 操作 系统 引导 到 主机 存 贮 器 内 的 问题 。 
根据 APPLE HU 机 不 同 的 型 号 , 亦 有 多 种 不 同 的 引导 方法 。 
. 有 些 机 器 很 简单 ， 如 APPLE 1 PLUS， 在 开机 之 前 ， 
先 把 随 主机 带 来 的 系统 盘 〈system master diskette) 插 
入 第 一 号 驱动 器 ， 开 机 ， 这 时 DIS K 再 的 红 灯 亮 ， 有 转动 
声 ， 儿 秒 钟 后 ， 在 显示 屏 上 会 显示 如 下 信息 ; 


DoS VERSION .3 o8y2s5y/8o 
AFFLE II FLUS OR ROMCARD SYSTEM MASTER 


(LOADING INTEGER INTO LANGUAGE CARD) 


这 表示 DOS 已 进入 存 贮 器 。 同 时 整 型 B AS 1C 解释 程 
- 序 也 已 进入 机 器 ， 即 这 时 可 以 在 机 器 上 任意 选用 APPLE- 


如 
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SOFT BASIC、 整 型 BASIC 或 监督 程序 的 工作 方式 了 。 

有 时 已 经 开机 了 ， 但 由 于 某 种 需要 ， 要 求 在 某 种 工作 方 
式 状 态 下 ， 重 新 引入 DOS ， 有 几 种 引导 方式 : 

(1) 若 显 示 屏 上 出 现 的 提示 符 为 了 或》 时， 假定 磁盘 驱 
动 器 连接 第 6 号 插 槽 ， 则 只 要 键入 : 

PR 共 6 再 按 RETURN 键 

或 IN 共 6 再 按 RETURN 键 
就 能 启动 磁盘 驱动 器 ， 红 灯 点 亮 ， 即 可 将 系统 盘 上 的 DOS 
引入 机 器 。 

(2) 若 显 示 屏 提示 符号 闪 ， 则 键入 C 600G , 再 按 RET- 
URN 键 ， 即 会 启动 磁盘 驱动 器 ， 红 灯 内 亮 ， 表 示 DOS 已 
引入 。 

(3) 若 提示 符 是 兴 ， 则 键入 6 CTRL -P ( 指 先 键入 6 ， 
再 同时 按 CTRL 键 与 P 键 ), 再 按 RETURN 键 ， 即 可 
引入 DOS 。 

2.2.2 磁盘 操作 系统 的 版 本 

DOS 系统 是 美国 APPLE 公 司 专 为 APPLE 下 微 
机 使 用 而 配置 的 操作 系统 ， 用 6502 的 指令 写成 。APPLE 
DOS 采用 的 是 DOS 3 版 本 ， 它 经 历 了 三 个 主要 阶段 : 

(1 诞生 阶段 APPLE I 公司 于 1978 年 6 月 和 7 月 
分 别 推出 了 DOS3.0 和 DOS3.1 版 本 ， 以 应 付 当 时 市 场 
的 急需 。 ， 

《2) 维护 改进 阶段 1979 年 4 月 和 7 月 ，APPLEI 
公司 先后 推出 了 DOS 3.2 和 DOS3.2.1 版 本 , 比 DOS 
3.1 版 本 有 所 改进 。 

(3) 更 新 阶段 1980 年 8 月 APPLE I 公司 推出 了 
DOS 3.3 版 本 ， 对 DOS3.2.1 版 本 进行 了 全 面 改进 。 它 
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将 过 去 的 13 扇 区 改 成 16 扇 区 ， 扩 充 了 磁盘 的 使 用 容量 ， 增 加 
了 存 贮 文件 过 程 中 自动 进行 校 验 的 功能 ， 为 了 能 与 DOS 
3.2.1 版 本 的 软件 兼容 ， 专 门 编制 了 13 扇 区 到 16 扇 区 的 转换 
软件 ，13 扇 区 磁盘 的 引导 程序 等 。 

本 书 介绍 的 DOS 系 统 指 的 是 DOS3.3 版 系统 。 

2.2.3 系统 主 盘 及 磁盘 

前 面 已 说 过 ， 为 了 引导 DOS 系 统 ， 必 须 先 将 系统 主 盘 
插入 1 号 驱动 器 ， 然 后 开机 引入 。 所 以 系统 主 盘 对 微机 使 用 
说 来 是 关键 磁盘 ， 应 该 很 好 保存 及 使 用 ， 后 面 再 介绍 复制 它 
的 方法 。 另 外 ， 微 机 上 常常 要 用 到 其 它 磁盘 ， 它 们 也 是 密封 
在 封套 中 的 ， 目 的 是 防 尘 ， 保 护 表面 避免 损伤 ， 同 时 也 防止 
盘 片 旋转 时 产生 静电 而 使 信息 丢失 ， 所 以 绝对 不 许 把 盘 片 取 
出 封套 。 磁 盘 表 面 涂 有 磁性 材料 ， 记 录 信 息 时 ， 磁 性 材料 便 
是 数据 载体 。 磁 盘 外 形 如 下 图 所 示 。 


中 央 切 品 


小 
二 
记 


ee 
了 过 哮 池 甩 > 六 


人 允 


图 2.1 


索引 和 孔 是 进行 磁盘 分 段 时 用 来 作为 物理 定位 标志 的 ， 由 
于 APPLE 玻 盘 驱 动 器 采用 软 分 段 ， 故 索引 孔 在 这 里 并 没 
起 作用 。 磁 头 读 写 窗口 〈 存 取 洞 ) 是 磁头 与 磁盘 接触 读 写 信 
息 的 界面 ， 是 关键 部 位 ， 绝 对 禁止 用 手 接触 窗口 内 磁盘 的 暴 
露 部 分 ， 也 应 防止 灰尘 水 污 。 写 保护 切口 是 用 来 保护 磁盘 的 
被 写 入 的 ， 只 要 贴 上 胶 纸 ， 信 息 就 写 不 到 磁盘 上 去 了 ， 也 就 
保护 了 磁盘 上 原 有 的 信息 。 

使 用 磁盘 的 注意 事项 : 

(1) 磁盘 的 使 用 寿命 为 每 一 一 琶 道 可 读 / 写 2 x 108 次 , 平 
均 工 作 时 间 为 300 小 时 ; 

(2) 平时 拿 磁盘 应 该 拿 磁盘 的 边沿 ， 不 要 加 重 压 ， 不 可 
弯曲 ， 不 用 时 及 时 插入 纸 外 套 中 ， 立 放 在 盒 中 ， 

(3) 标签 应 写 好 之 后 再 贴 到 磁盘 上 去 ， 不 要 贴 上 标签 后 
在 磁盘 上 写字 ， 以 免 损 伤 磁盘 ; 

(4) 软磁盘 的 保存 温度 最 好 在 10 一 50C， 要 避 开 磁场 的 
干扰 ; 
(5) 已 破损 的 磁盘 不 能 再 放 到 驱动 器 中 使 用 ， 以 免 损 坏 
驱动 器 的 读 写 头 ; 

(6) 驱动 器 红 灯 亮 时 ， 绝 对 不 能 取出 或 放 进 磁 盘 。 


% 2.3 键盘 的 用 法 


在 键盘 板 上 除了 英文 字母 键 , 数 字 键 和 算术 运算 键 之 外 ， 
还 有 一 些 专门 用 途 的 键 ， 
红 灯 指 示 键 及 小 写 刍 

键盘 板 左下 角 那 个 开机 时 亮 着 红 灯 的 键 是 表示 主机 电源 
已 接 通 的 指示 灯 ， 同 时 它 也 是 个 字母 大 小 写 的 控制 键 ， 按 下 
按键 ， 转 入 小 写 状 态 ， 这 时 键入 字母 都 是 小 写 的 了 。， 
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RESET 键 

这 是 复位 键 , 在 计算 操作 过 程 中 要 强迫 中 断 某 些 操作 时， 
可 按 CTRL-RESET 键 ( 指 先 按 CTRLE 键 不 放 ， 然 后 
按 RESETT 键 ; 或 同时 按 下 两 键 也 可 )。 

RETURN 键 

这 是 回 车 键 ， 按 了 它 ， 将 对 输入 的 字符 及 命令 辨 从， 并 
” 存 入 内 存 ， 在 每 一 条 命令 打 入 之 后 ， 都 要 按 RETURN 键 。 
SHIFT 键 

为 功能 变换 键 。 在 键盘 上 有 的 键 可 以 有 两 种 功能 ， 按 
S HIFT 键 以 后 ， 再 按 那 种 键 ， 就 会 把 键 上 面 所 示 那 个 字符 
键入 主机 。 

CTRL 键 

是 控制 键 ， 先 按 CTRLE 键 不 放 ， 再 按 某 些 键 ， 会 起 到 
不 同 的 作用 ， 如 ， 

CTRL-X 把 刚才 打 入 主机 的 一 行 字 符 作 废 ， 这 时 虽 
然 在 显示 屏 上 仍 看 到 有 那 一 行 字符 ; 但 主机 内 存 中 已 不 存在 
了 

CTRL-G 主机 发 出 “ 哪 ” 的 一 声 ; 

CTRL-B 然后 按 RETURN,， 将 从 监督 程序 方式 转 
到 BAS IC 语言 的 操作 ; 

CTRL-C 在 程序 列表 的 过 程 中 途 按 这 两 个 键 可 使 
列表 动作 停止 ; 

CTRL-> 在 程序 列表 的 过 程 中 途 按 这 两 个 键 ， 可 使 
列表 动作 暂时 中 止 ， 再 按 空白 键 ， 列表 动作 又 继续 。 
E S C 键 

ES C 键 是 编辑 键 ， 它 必须 与 别 的 键 配合 使 用 ， 但 是 不 

必 同 时 按 住 ， 而 是 先 按 已 S C 键 ， 放 开 后 ， 再 按 别 的 键 。 这 
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个 键 主要 用 于 屏幕 编辑 ， 例 如 ， 

ESC,T 即 按 了 E SC 键 放 开 ， 再 按 上 键 ， 则 屏幕 上 
的 光标 向 上 移动 一 行 ; 

忆 SC,] 按键 方法 与 上 述 类 似 ， 但 屏幕 上 光标 向 左 移 
动 一 格 ; 

ESC， 开 屏幕 上 光标 向 右 移动 一 格 ; 

ESC，M 屏幕 上 光标 向 下 移动 - : 行 。 

上 述 屏幕 编辑 只 要 按 E SC 键 一 次 ， 就 进入 编辑 了 ， 假 
如 再 按 的 不 是 [，J，K，M，REPTT 与 SHIFT 人 六 个 键 中 
的 任意 一 个 键 ， 就 会 脱离 上 述 编 辑 方 式 了 。 要 注意 的 是 在 以 
上 编辑 方式 中 只 是 控制 光标 的 移动 ， 并 不 改变 屏幕 及 主机 的 
内 存 。 

已 SC， 巨 ”把 从 光标 所 在 的 位 置 起 到 屏幕 上 该 行 的 末 
尾 之 间 的 所 有 文字 删除 。 
擂 键 与 一 键 

擂 键 为 向 左 移 光 标 用 ， 移 过 处 的 字符 已 从 主机 内 存 中 删 
除 ， 屏 莫 上 则 没有 改变 ; 

一 键 为 向 右 移 光 标 用 ， 移 过 处 的 字符 又 重新 进入 主机 内 
存 。 
REPT 键 

是 重复 功能 键 ， 按 住 某 字 键 ， 同 时 按 了 RE 下 PT 键 ， 就 会 . 
重复 显示 该 字符 ;， 按 RE PT 键 ， 同 时 按 一 键 或 二 键 ， 就 能 
快速 移动 光标 ， 方 便 屏 幕 编辑 。 
程序 编辑 
用 以 上 介绍 的 键盘 功能 就 很 容易 对 程序 行进 行 编辑 。 方 
法 是 先 调 出 这 个 程序 行 ( 即 LIST( 程 序 行 ))， 然 后 按 E SC 
键 ， 和 工 键 及 本 键 ， 把 光标 调 到 这 个 程序 行 的 行 号 之 首 ， 再 
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按键 ， 沿 途 对 错误 的 字符 修改 ， 修 改 完 后 ， 按 动 ~ 键 (为 
加 快 移 速 ， 可 同时 按 REP 了 键 )， 直 到 程序 行 的 末尾 ， 按 
RETURN 键 ， 即 修改 完毕 。 例 如 
, 100PRINT4X 一 2” X 

这 个 程序 行 中 ， 打 印 语 句 写 错 了 。 为 了 改 错 ， 先 键入 LIST 
100, 把 这 个 程序 调 出 来 ， 然 后 按 卫 S C 键 ， 再 按 I 键 ， 使 光 
标 移 到 这 个 程序 行 位 置 ， 再 按 ] 键 ， 把 光标 调 到 程序 行 之 首 
1 的 位 置 ， 然 后 按 一 键 移 到 M 位 置 停 住 , 按 N 键 ， 再 按 一 键 ， 
同时 按 REPT 键 , 使 光标 快速 移 到 程序 行 的 末尾 , 按 RET- 
URN 键 ， 即 修改 完毕 。 

假如 要 删 去 程序 中 某 几 个 字符 〈 设 不 在 引号 中 的 ), 则 只 
要 按 上 述 调 动 光标 ， 到 需 删 除 的 那 几 个 字符 的 位 置 处 ， 按 空 
格 键 就 行 。 

若 要 在 程序 中 插入 字符 ， 首 先 也 是 调 出 程序 ， 按 世 S C 
键 进 入 编辑 状态 ， 按 工 键 及 丁 键 使 光标 移 到 程序 之 首 ， 按 一 
键 ， 使 光标 位 于 待 插入 位 置 ， 按 忆 S C 键 及 工 键 把 光标 调 到 
上 一 行 位 置 ， 脱 离 编辑 状态 ,键入 要 插入 的 字符 , 再 按 E S C 
键 和 本 键 到 该 行 第 一 个 位 置 ,再 按 M 键 回 到 原来 程序 行 位 置 ， 
按键， 直到 程序 末尾 ， 按 回 车 键 ， 完 成 了 修改 。 例 如 : 

100PRINT  X 
若是 要 在 X 之 前 插入 “X = 汪 时 ， 首 先 键入 LIST 100 调 出 
这 个 程序 ， 然 后 按 下 S C 键 进入 编辑 状态 ， 按 工 和 j] 键 ， 把 
光标 调动 到 这 行 的 行 首 , 即 1 处， 再 按 -* 键 ， 把 光标 调 到 X 
处 ， 再 按 E SC 键 ， 按 工 键 ， 把 光标 向 上 抬 一 行 ， 按 任何 别 
的 键 以 脱离 编辑 状态 ， 再 按 “X = 汪 和 下 SC 键 ， 再 按 ] 键 ， 
移 到 “位 置 ， 再 按 M 键 ， 回 到 原来 的 程序 行 位 置 ， 再 按 一 
键 。 若 要 快速 移动 ,可 同时 按 REPT 键 ， 直 到 程序 未 尾 , 按 
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RETURN 键 ， 结 束 修改 。 
8 2.4 直接 操作 方式 和 命令 


在 直接 操作 方式 下 ， 不 管 系统 处 于 何 种 工作 方式 ， 只 要 
进入 BASIC 语 言 系统 ， 以 下 的 几 种 命令 即 可 以 立即 执行 ， 
2.4.1 PRINT 
APPLEI 的 PRINTI( 打 印 ) 这 个 词 ， 也 可 以 简单 
地 键入 一 个 ?, 作用 是 一 样 的 。 
打印 字符 的 方式 是 
打 入 PRINT“ 字 符 串 风 再 按 回 车 键 (RETURN 键 )。. 
打印 计算 结果 的 方式 是 ， 
PRINT 表 达 式 (注意 ， 不 用 引号 ), 再 按 回 车 键 。 
在 APPLESOF 了 方式 下 ， 每 一 行 打印 的 长 度 不 能 超 
过 255 个 字符 ， 当 输入 长 度 接近 255 个 字符 时 ， 会 发 出 一 连 串 
“ 嘟 "的 声音 ， 表 示警 告 ， 当 输入 超过 255 个 字符 的 时 候 ， 会 
印 出 “入 ”的 符号 ， 并 自动 取消 输入 , 就 象 按 了 CTRL 一 X 
键 一 样 。 
2.4.2 一 行 中 用 到 几 个 命令 
在 一 行 中 可 以 同时 用 到 几 个 命令 ， 例 如 ， 同 一 行 中 可 以 
打印 几 组 字符 ; 
PRINT “A27PRINT “AB7PRINT “CD 玫 
按 RETURN 键 后 ， 即 显示 ; 
A 
AB 
CDFE 
2.4.3 执行 没有 行 号 的 语句 
可 以 键入 没有 行 号 的 一 组 语句 ， 直 接 得 出 结果 。 例 如 ; 


了 


FOR I=1TOI0:PRINT“A”:NEXT: 
PRINT “PHBEW1” 

按 RETURN 键 后 显示 : 

AAAAAAAAAAPHEWI 

直接 执行 方式 除了 一 般 的 计算 外 ， 主 要 用 于 调试 程序 ， 
检查 程序 执行 过 程 中 主机 的 内 存 。 

2.4.4 NEEW 与 HOM 巨 命令 

N 刁 允 与 HOME 是 完全 不 同 的 两 种 命令 。NW 命令 
(按键 N 匡 W， 然 后 按 RETURN 键 )， 清 除 主机 内 存 ， 但 
` 并 不 清除 屏幕 。N 已 W 是 常用 的 命令 ， 特 别 在 把 程序 输入 主 
机 之 前 ， 必 须 先 键入 N 刁 W， 以 清除 内 存 ; 键入 HOME ， 
然后 按 RETURN 键 ， 只 是 清除 屏幕 ， 使 以 后 的 显示 更 清楚 
些 ， 并 不 清除 主机 内 存 ， 主 机 内 存 中 仍旧 保留 了 原先 的 内 
容 。 

2.4.5 CLEAR 命 

en 数组 和 字符 串 变 量 清 为 
零 或 空 。CLE 开 AR 也 可 用 于 程序 中 。 

2.4.6 RUN 命 令 

是 运行 程序 的 命令 。 

2.4.7 PRINT FREE (0 ) 命令 
FREE(0) 用 于 释放 内 存单 元 函数 ， 在 直接 命令 方式 下 
执行 PR INT FREE(0) 是 释放 主机 内 存 变 量 区 的 4“ 废弃 ? 
单元 ， 进 行 变量 清理 以 得 到 可 用 的 内 存量 ( 字 节 )， 若 可 用 
R AM 超过 32767, 则 PRINT FRE(0) 得 到 负 值 ， 加 上 
65536 才 是 当时 真正 可 用 R AM; FRE(0 ) 在 程序 方式 中 也 
可 使 用 ， 用 FE = FREE(0) 语 句 达 到 直接 命令 方式 的 类 似 功 
用 。 
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2.4.8 HTAB，VTAB 命 令 
这 是 两 个 移动 屏幕 光标 的 命令 ， 
HTAB n 
执行 这 个 命令 就 把 显示 光标 在 水 平方 向 上 移 到 n 列 位 置 ，n 的 
值 在 1 与 40 之 间 。 
VTAB mn 
执行 这 个 命令 把 显示 光标 在 垂直 方向 上 移 到 n 行 位 置 ，n 的 
值 在 1 与 24 之 间 。 
HTAB 与 VTAB 也 可 以 用 在 程序 方式 中 。 


 $ 2.5 程序 操作 方式 (或 称 
间接 执行 方式 ) 和 语句 


程序 操作 方式 指 在 APPLE LU 上 可 以 用 APPLE- 
SOFT BASIC( 简 称 APPLESOFT) 语 名 ， 编 造 许多 
程序 行 ， 许 多 复杂 的 操作 指令 就 包含 在 这 些 程 序 行 内 ， 程 序 
行 输入 后 并 不 立即 执行 ， 而 必须 打 入 运行 (RUN ) 命 令 ， 才 
能 得 到 结果 ， 所 以 又 称 之 为 间接 执行 方式 。 

2.5.1 程序 行 和 行 号 

编制 程序 必须 有 行 号 ， 它 将 决定 程序 执行 的 次 序 。 行 号 
必须 在 0 与 63999 之 间 , 写 入 时 行 号 的 先后 没有 关系 ， 最 终 它 
们 会 自动 按 行 号 大 小 排列 好 ;在 一 行 中 可 以 打 入 多 个 语句 ， 
语句 之 间 用 冒号 隔 开 。 

若 打 入 一 行 语 名 之后， 又 要 删除 ， 则 只 要 打 入 同样 的 行 
号 , 再 按 RETURN 键 即 可 ， 若 打 入 同样 行 号 的 另 一 个 语句 ， 
就 把 原先 的 语句 顶替 掉 了 ;， 若 要 删除 几 个 程序 行 ， 可 以 打 入 
DEL 命令， 例如: 

DEL 10，50 


再 接 回 车 键 ， 就 把 10 行 到 50 行 的 语句 都 刷 挤 了 。 程序 行 的 修 
改 请 见 8$ 2.3 介绍 。 

2.5.2 数 、 字 待 、 变 量 
数 的 表示 

整数 除 符号 外 ， 有 效 位 数 5 位 ， 允许 范围 是 - 32767 一 
32767; 实数 有 效 位 为 指数 2 位 ,底数 9 位， 可 用 浮 点 数 表示 ， 
允许 范围 是 一 1.7 X1033 一 1.7 X1033 之 间 。 
字符 表示 

字符 须 用 双 引 号 括 起 来 ， 双 引号 括 起 来 的 字符 序列 称 字 
符 串 ， 字 符 串 长 度 为 0 一 255 之 间 。 
变量 
变量 名 由 大 写字 母 和 数字 序列 组 成 ， 第 一 个 字符 必须 是 
大 写字 母 。 变 量 名 最 大 长 度 可 达 238 个 字符 ， 但 在 APPL- 
ESOFT 中 只 有 最 初 2 个 字 被 认为 有 效 。 在 变量 名 中 不 允许 : 
含有 语言 保留 字 ， 保 留 字 见 附录 。 变 量 名 的 最 后 一 个 字符 代 
表 变量 的 类 型 ， 字 符 $ 代表 字符 串 变 量 ，% 表示 整 型 变量 ， 
没有 这 两 种 符号 就 是 实 型 变量 。 变 量 名 相同 ， 但 是 变量 类 型 
不 同 ， 仍 表示 是 两 个 变量 。 例 如 入 ，A$$ ，A%% 分 别 是 实 型 
全 


时 使 用 。 

以 下 是 变量 名 的 合理 和 不 合理 的 表示 法 ; 
合理 不 合理 
A$ MN$ E6l 0 MI!$ 77$ 
AM B%6 Al% A 和 $% 3I% 3D% 
A B AA 0 7 B A 间 


2.5.3 表达 式 求 值 规则 | 
表达 式 在 求 值 时 所 按照 的 运算 符 〈 即 从 最 高 级 的 最 内 层 
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0 人 2756 


的 括号 计算 开始 ， 到 低 岛 扒 在 逢 迁 R 六 执行 优先 次 
序 如 十 ; - AN 
《 ) 括号 
乘 害 
人 负 号 
关 乘 / 除 
十 加 一 减 


= 等 于 《 》 不 等 于 《 小 于 >》 大 于 

委 小 于 等 于 ，” 大 于 等 于 

NOT 非 

AND 晴 

OR 或 

2.5.4 数组 及 已 ITM 语 名 

在 程序 中 使 用 数组 时 , 前 面 必须 用 到 数组 说 明 语 句 DI M， 
例如 ， 

10 DIM A (9，11) 
这 是 定义 一 个 两 维 数组 ， 每 一 维 都 是 从 零 开 始 的 ， 以 上 定义 
说 明 数 组 变量 A 在 程序 中 用 到 的 最 大 下 标 数目 是 A〈9,11 )， 
可 表达 的 变量 为 10 x 12 = 120 个 。 假 如 程序 中 某 数组 变量 最 大 
下 标 数 不 超 过 10， 则 APPELES OFT 人 多 许 不 要 数组 说 明 。 

APPLESGOFTT 人 允许 最 大 使 用 88 维 的 数组 。 

2.5.5 三 种 输入 语 名 

输入 语句 主要 有 三 种 ， 将 来 介绍 到 磁盘 文件 时 还 将 介绍 


从 数据 文件 输入 数据 的 语句 。 
赋值 语句 


也 即 王 匡 工 语句 ， 在 APPELESOFT 了 T 中 的 赋值 语 铅 可 
省 去 上 刁 工 定义 符 。 赋 值 语句 的 意思 是 指 把 表达 式 右边 的 数 
21 


人 


人 


值 赋值 给 等 号 左 进 的 变量 ， 例 如， 
二 下 二 疯 全 
20 V =3.14159 基 入 人 2 

又 例如 下 面 的 赋值 及 打印 语句 : 


站 RINT “XXX 
3 X = X 二 | 

4 RTINT 六 
号 0) END 


键盘 输入 语 名 

即 INPUT 语 句 ， 在 运行 程序 过 程 中 ， 遇 到 INP UT 语 
句 处 ， 主 机 将 等 待 由 键盘 输入 数据 给 变量 ， 例 如 : 

1O INPUT X 


20 PRINT X 来 关 
3 END 


运行 这 个 程序 ， 结 果 是 : 
? 9 ( 若 键入 9) 


1 2 
-在 运行 过 程 啤 过 双 程 序 中 的 TINP UT 语 句 ， 将 显示 一 个 问 


22 


号 ， 即 要 求 键入 数据 ， 这 时 从 键盘 输入 数据 ， 程 序 就 往 下 执 
行 了 。 
又 例如 ; 


1 INPUT XyY,E 
20 PRINT X,Y,E 
3D END 


运行 这 个 程序 ， 结 果 是 : 

? 1 (车 键入 1) 

??2 (车 键入 2) 

??3 ( 若 键入 3) 

1 2 3 
这 个 例子 说 明 INPUT 语 句 后 面 可 以 要 求 输入 几 个 变量 值 ， 
但 变量 之 间 须 要 用 逗号 隔 开 。 要 注意 从 键盘 打 入 的 变量 不 要 
多 于 所 要 求 输入 的 变量 个 数 ， 并 要 求 类 型 匹配 和 输入 次 序 正 
确 。 
READ 语 和 名，DATA 语 句 ， RESTORE 语 名 

READ 语句 是 读数 语句 , 在 程序 中 必须 与 置 数 语句 DATA . 
配合 使 用 ,依次 将 程序 中 DATA 语 句 所 提供 的 数据 序列 赋 
值 给 READ 语 句 中 的 各 个 变量 。 例 如 : 


1D READ RiyR2 RS,R4,w 

20 DATA 100， 150，240， 36D。24 

30 TI ttLRt+tlALR2+T 7 RS + 
1 7 R4) 于 吕 

4 PRINT "IT=23I 

So END 
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运行 这 个 程序 的 结果 : 

TI=0.566669 

一 个 程序 中 ，D AT A 语 句 中 的 数据 可 以 比 READ 语 名 
中 的 变量 多 ， 但 是 不 能 少 ， 否 则 运行 就 会 出 错 ， 还 要 注意 变 
量 类 型 要 与 数据 序列 类 型 一 殖 ， 互 相 匹配 。 
RESTORE 语 句 是 可 以 恢复 使 用 DATA 语句 的 一 种 
语句 ， 例 如 : 

1 READ _ ABCD 


20 RESTORE 
30 READ E,F 


4 PRINT ABC 
so PRINT D,E,F 
GD DATA 1 3 5 7 
7D 虹 ND 
运行 这 个 程序 结果 ; 
1 3 5 
7 1 3 


即 第 10 行 读 语句 读 完 第 60 行 的 数据 ， 第 20 行 的 RESTOREE 
又 复位 到 这 批 数据 的 开始 处 ， 变 量 已 ，E 又 可 从 第 一 个 数据 
开始 读数 据 。 
三 种 输入 语句 的 比较 

三 种 输入 语句 各 有 各 的 用 处 ， 在 有 的 程序 中 几乎 同时 用 
到 这 三 种 输入 语句 。 三 种 输入 语句 的 特点 是 : 

[LET 语句 适用 于 给 少量 数据 赋值 ， 在 有 大 批 数 据 的 情 
襄 下 就 显得 繁琐 ， 输 入 效率 不 高 。 

READ/DATA 语句 适用 于 成 批 数据 的 输入 ， 在 屏幕 
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上 可 对 所 用 数据 成 批 校对 。 

INP UT 语 句 使 用 灵活 性 大 ， 在 程序 执行 过 程 中 可 以 灵 
活 输入 参数 ， 边 试 算 边 修改 ， 缺 点 是 人 工 键盘 输入 ， 运 行 速 
度 慢 。 

2.5.6 控制 语句 
GOTO (无 条 件 转向 ) 语句 

格式 是 : 

GOTO 语 句 《 行 号 》 

程序 中 遇 到 G OT O 语 句 ， 就 改变 了 程序 执行 的 方向 ， 
可 能 转 到 前 面 的 程序 行 去 执行 程序 , 也 可 能 跳 过 几 个 程序 行 ， 
执行 后 面 的 程序 ， 例 如 


1 INPUT X 
2 PRINT X 
SC 6GQTO 10 
40 END 


这 个 程序 所 起 作用 是 只 要 键盘 不 断 输入 数据 ， 就 会 不 断 打印 
出 来 ， 永 无 止息 。 
条 件 语句 
有 几 种 格式 : 
人 1FE (表达 式 ) THEN 语 句 ， 语 句 :， 语句 
以 上 语句 中 的 表达 式 可 以 是 算术 表达 式 、 字 符 串 表达 式 
或 条 件 表 达 式 。 若 表达 式 的 值 不 为 零 时 ， 执 行 THE AN 后面 
的 语句 和 它 后 面 并 列 的 语句 (可 以 有 许多 个 )， 若 表达 式 的 值 
为 零 时 整个 语句 就 不 执行 了 。 

表达 式 为 零 是 指 下 列 三 种 情况 之 一 :算术 表达 式 计算 出 
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1 
1 
| 


的 绝对 值 小 于 2.93873E -- 39; 字符 串 表 达 式 的 结果 为 空 串 
时 ， 条 件 表 达 式 的 条 件 不 满足 。 
IF THEN 型 条 件 语句 使 用 例 ， 


iD INPUT "A="i: 

20 IFAA 8B THEN B = 4: PRINT B: 
GOTGO SO 

3 忆 = 1 

4D PRINT "B=" 3:B 

5SD END 


运行 这 个 程序 的 结果 : 

A= 6 (假如 键盘 输入 6 ) 

B= 4 
， 抽 运 行 这 个 程序 : 

A=10 (假如 键盘 输入 10) 

B = 16 

@@ IF (表达 式 ) THEN (语句 行 号 ) 

表达 式 成 立 ， 则 程序 转向 到 指定 的 行 号 执行 。 

时 IF (表达 式 ) GOTO (语句 行 号 ) 

表达 式 成 立 ， 则 程序 转向 到 指定 的 行 号 执行 
GOSUB 语 句 

格式 是 ，GOS UB (语句 行 号 ) 

在 一 个 程序 中 ， 有 时 常常 要 重复 使 用 一 段 程 序 ， 为 了 简 
化 使 用 ， 把 这 种 被 重复 使 用 的 一 段 程 序 编 成 子 程序 形式 ， 在 
主 程序 要 用 到 它 时 就 调用 它 ， 调 用 完 后 ， 继 续 往 下 执行 主 程 
序 。 调 用 时 的 语句 即 为 GOS U B (语句 行 号 ) ， 子 程序 结尾 
人 在 句 。 
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例如 :， 求 任 意 三 个 数 的 阶乘 的 和 : 
S=Al+BI+CI 


19 GO0SHUHB 100 


2 和 = 呈 

3O GOSUB 1600 

4o0 总 = 己 

5SO GOSUB 1168 

GD CC = 忆 

7 S=AN+B+ 
8 PRINT "= "SS 
30 END 

1OD FRR = 革 


110 READ M 

ti20 FORJI = 1 TO M 
13CO RPR=PR 水 了 

140 NEXT 可 

tSO PRINT “二 ME 
te RETURN 

20O0O DATA 2 3 4 


程序 中 从 100 行 到 160 行 就 是 相对 独立 于 主 程序 的 子 程序 ， 所 
起 的 作用 是 读 取 一 个 数据 ， 求 它 的 阶乘 。 第 10 行 调用 这 个 子 
程序 ， 算 得 2! 后， 返回 执行 第 20 行 ， 把 2! 值 赋 给 变量 A， 继 
续 往 下 执行 。 运 行 这 个 程序 的 结果 是 : ， 
二 24 十 3! 十 4! 一 32 

子 程序 可 以 嵌 套 子 程序 ， 租 套 深 度 最 多 可 达 24 层 。 对 某 
子 程序 说 来 ， 根 据 需要 可 以 有 不 同 的 入 口 。 
计算 转向 语句 

格式 ;， ON (变量 )GOTO( 语 名 行 号 1)，( 语 名 行 号 2)， 
(语句 行 号 3)，… 
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”这 种 计算 转向 语句 是 按 算术 表达 式 中 变量 的 值 选 择 转向 
行 号 ， 当 变量 为 1 时， 转向 行 号 1 去 执行 ,变量 为 2 时 ， 转 
向 行 号 2 去 执行 ， 变 量 为 3 时 ， 转 向 行 号 3 去 执行 ， 假 如 变 
量 为 零 或 程序 中 没有 指定 的 行 号 时 ， 就 执行 下 一 个 语句 。 例 
如 ; 


1 BX = 4 

20 PRINT BX 

3 口 人 X 二 BC 一 避 

40 ODN AX 60TO 497D 5S9 
IO FRINT 7 


昌 口 B% = 瑟 

3 6GGTO SO 
1SO PRINT :BX 
to BX = 芭 


170 60TO 20 
这 个 程序 结果 是 : 


这 
4 
4 
5 
3 
4 


计算 转子 程序 语句 

格式 :ON (变量 )GOS UB( 行 号 1)，( 行 号 2),… 

这 种 计算 转子 程序 语句 是 按 算术 表达 式 中 变量 值 选择 调 
用 子 程序 行 号 ， 作 用 与 计算 转向 语句 类 似 ， 与 计算 转向 语句 
统称 开关 语句 。 
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自动 纠 错 语句 

格式 :ON ERR GOTO ( 行 号 ) 

程序 中 有 了 自动 纠 错 语句 后 , 当 程 序 运行 中 遇 到 错误 时 ， 
会 自动 转移 到 预先 设计 好 的 纠 错 程序 中 去 ， 纠 错 程序 末尾 是 
RES UME 语 句 , 使 得 可 以 回 到 出 错 的 语句 处 ， 以 便 继续 执 
行程 序 ， 也 可 以 使 用 GOTO 语 句 ， 将 程序 转向 到 指定 的 行 
号 继续 执行 。 例 如 ， 


二 下 


二 后 TD 二 人 旨 


癌 间 -有 


引 避 人 

RTMNT 有 PRINT BE PRINT C 
总 已 开 岂 也 

CUME 


运行 这 个 程序 的 结果 是 : 
30 
20 
1.5 
循环 语句 
循环 语句 用 于 多 次 重复 执行 同一 指令 或 同一 组 指令 ， 称 
为 程序 循环 ， 其 一 般 形 式 如 下 ; 
10 FOR I=A TOB STEPCC 
20 
30 /循环 体 
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100 NEXT 上 
因为 它 是 从 FOR 开始 ， 以 NEXT 结 尾 ， 亦 称 FOR -NEXT 
循环 。 其 中 工 是 循环 控制 变量 ，A 是 循环 变量 初 值 ，B 是 特 
环 变量 终 值 ，C 是 循环 变量 步 长 。 第 10 行 统称 循环 说 明 语 句 。 
第 100 行 的 NEXTT 是 循环 终端 语句 。 在 循环 说 明 语 句 与 特 
环 终端 语句 之 间 的 程序 行 称 为 这 个 循环 结构 的 循环 体 。 

循环 结构 的 注意 之 点 : 

@ 循环 说 明 语 名 中 的 A ,B ，C 值 可 以 是 个 数值 ， 也 可 
以 是 变量 或 表达 式 ， 但 是 要 求 在 执行 循环 之 前 已 被 赋值 。C 
值 为 1 时 可 以 省 略 STEP， 
国 FOR 与 NEXT 必 须 成 对 出 现 ，NEXT 后 面 的 循 
环 变 量 可 以 不 写 ; 

图 循环 语句 最 重要 的 功能 是 指定 循环 体 执行 的 次 数 。 

循环 次 数 = 二 人 + 1 

例如 ， 

10 FOR I=17TO 10 

20 PRINT 

30 NEXTI 
运行 这 程序 的 结果 是 打 了 10 个 空 行 。 
又 例如 : 

10 FOR TI=1TO 10 

20 PRINT 1 

30 NEEXT 
运行 这 个 程序 的 结果 是 打印 出 循环 变量 的 值 ， 

1 

2 


-30 


PPO 


10 
又 例如 ; 
10 FOR I=1 了 TO 5 
20 PRINT “Ay> 
30 NEXT 1 
运行 这 个 程序 的 结果 是 打印 5 个 字符 A : 
A 


人 

人 A 

人 电 循环 可 以 冉 套 , 实 现 多 重 循环 ， 但 媒 套 不 能 交叉 ， 代 
套 不 得 超过 10 层 。 有 了 多 重 循环 可 以 简洁 地 处 理 许多 复杂 的 
亲 题 。 

f 例如 ， 计 算 并 打印 乘法 九 九 表 : 


6oD NEXT 全 
7O  ， ND 


又 例如 若 有 任意 个 数 ， 要 求 按 大 小 排队 。 


10 INPUT "N=2”N 

20 DIM X(N) 

30 FORI=1TON 

40 READ XI) 

so NEXT II 

6O PRINT "IT930X 

79 FOR IT=1TON 

80 FORJ= ITON 

350 IF X(T) > = XI) THEN 1 
10o0 T = X(I):X(I) = X(d):X(I) = 下 


11c NEXT 了 

2 已 PRINT 工 人 

13O NEXT 工 

140C END 

了 SS 虽 DATA 了 4 本 虽 本 本 6 1 4，23， 折 
160 DATA 一 7 一 人 人 4， 卫 


运行 这 个 程序 的 结果 是 : 
N =10 
入 
1 303 
2 240 
3 56 
4 23 
5 14 
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6 6 
7 4 
8 2 站 
9 一 4 
10 一 7 
人 


.了 ND 语 名 与 STOP 语句 


END 语 名 一般 放 在 程序 末尾 ,表示 程序 运行 到 此 结束 ， 
也 可 以 不 写 ， 程 序 执行 到 末尾 自然 终止 ， 当 然 EN D 语句 也 
可 能 出 现在 程序 中 间 ， 在 一 定 条 件 下 ， 程 序 执 行 到 此 就 结 
Se 

STOP 语句 出 现 于 程序 中 间 ， 是 为 调试 程序 的 需要 而 
设置 的 断 点 ， 程 序 执行 到 此 暂时 中 止 ， 以 便 检 查 这 时 各 个 变 
. 量 的 值 ， 判 断 程序 的 执行 是 否 正确 ， 要 继续 执行 程序 时 只 要 
键 和 CONT 命 令 就 可 以 了 。 程 序 执行 到 3 TOP 语句 时 ， 
机 器 发 出 “ 哪 ” 的 一 声 ， 以 示 提 醒 , 并 显示 BRRAK [LN ( 程 
序 停 止 执行 所 在 的 语句 行 号 ), 表 示 程 序 在 哪 一 行 中 断 的 。 

要 注意 的 是 ， 一 般 在 程序 未 尾 可 以 不 加 已 N D 语 句 ， 但 
是 若 末尾 后 面 还 有 子 程序 时 , 则 在 子 程序 之 前 必须 要 加 下 ND 
语句 ， 这 在 用 到 那些 已 编 成 子 程序 形式 的 程序 库 〈 如 本 书 第 
四 章 )， 写 主 程序 时 一 定 要 注意 末尾 写 EN D 语句 。 

2.5.7 REM 语 名 

是 注释 语句 ， 程 序 执行 中 并 不 执行 这 类 语句 ， 这 类 语句 
人 E 或 限制 等 ， 以 便 更 方便 地 
阅读 程序 。 

2.5.8 PRINT 语 名 

是 打印 输出 语句 ， 把 机 器 内 存 的 数据 〈data) 输 出 到 屏 
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幕 、 打 印 机 或 其 它 外 部 设备 上 。 打 印 语句 要 注意 与 格式 配合 
使 用 : 
按 标准 间隔 位 置 输出 

打印 输出 变量 之 间 以 逗号 分 隔 时 ， 则 按 APPLE 机 预 
先 设 定 的 标准 位 置 三 列 输出 ， 第 一 个 位 置 是 第 1 一 16 列 ， 第 
二 个 位 置 是 第 17 一 32 列 ， 第 三 个 位 置 是 第 33 一 40 例 。 而 且 规 
定 ， 第 二 个 位 置 只 有 在 第 16 列 为 空 时 才 发 生 作用 ， 第 三 个 位 
置 只 有 在 第 24 一 32 列 为 空 时 才 发 生 作用 。 例 如 ; 


芋 吕 个 囊 二 “下 HREE 王 ， 
人间 囊 = VISIONARY"” 
DC 事 = “MICE 


4 FOR TI = 1 TO 4 
SS9 PRINT 全 囊 ， 电 于 。C 村 
GD NEXT I 

7 RPRINT GOQOGD 5 
刀口。 END 


THREE VISIONARY 
THREE VISIONARY 
THREE VISIONARY 


了 HREE VISIONARY 


其 中 每 一 行 第 一 个 字符 串 及 第 二 个 字符 串 都 打 在 标准 位 置 ， 
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由 于 第 二 个 字符 串 太 长 ， 影 响 到 第 三 个 字符 串 不 能 打 在 标准 
位 置 上 ， 而 只 能 换行 了 。 
按 紧凑 格式 输出 

打印 输出 变量 之 间 用 分 号 分 隔 时 ， 则 按 紧凑 格式 输出 ， 
输出 结果 之 问 不 留 空白 。 例 如 : 


10 有 = 
20 PRINT AS63 ABC" SIN (A) 
SC END 
运行 结果 是 : 
556ABC -- .958924274 
PRINTI 语 句 末 尾 的 标点 符号 的 作用 


Q@ 在 最 后 一 项 不 置 标点 符号 时 , 即 自动 换行 输出 。 例 如 
10 PRINT 1，3 
20 PRINT 2 关 2，5 关 5 
30 END 
运行 的 结果 是 : 
1 3 
4 25 
@@ 在 最 后 一 项 后 面 用 分 号 时 ， 则 不 换行 ,下 列 的 输出 紧 
接 前 行 输出 。 例 如 : 


410 PRINT "Y="; 

20 PRINT 3 ”本 X 1 S 二 1 
30 PRINT 43" 表 X2" 

40 ”END 


运行 结果 是 : 
YY 一 2 闪 和 1 十 4 闪 入 2 
仿 在 最 后 项 后 面 是 逗号 时 ,打印 完 后 不 换行 ， 在 标准 位 
置 打 印 。 例 如 : 
10 PRINT4X”，“Y”， 
20 PRINT“X+Y? 


和 YY 久 十 Y 


10 PRINT 
运行 结果 是 打 一 个 空 行 。 
. 按 指定 位 置 输出 
人 SPC 函 数 
是 一 个 具有 跳 过 空白 位 置 功 能 的 函数 ,必须 用 在 PRINT 
之 后 。 例 如 ， 
10 PRINT SPC(15)， “TOPY?” 
表示 在 一 行 先 空 15 格 ， 然 后 打印 TOP 字 符 串 。S PC 后 面 
括号 中 可 以 是 数值 、 变 量 或 算术 表达 式 ， 需 打印 的 字符 与 
SPC 函 数 之 问 必须 用 分 号 隔 开 。 


@ TAB 函数 
ee 
开始 .TAB 函数 用 在 PRINT 语 句 之 后 , 若 使 用 多 个 TAB， 


Ia 
变量 或 算术 表达 式 。 例 如 : 


1 FOR TI= 1 TOQS 
20 PRINT TAB 49)3T3 TAB( 20)3I 
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+ 13 TAB 30)3T + 2 TAB( 和 4 
DT + 所 


3D NEXT 1I 
4 END 

运行 结果 是 
1 2 3 4 
2 3 4 5 
3 4 5 6 
4 5 6 7 
5 6 7 8 


TAB 函数 括号 中 数值 超过 40 就 不 起 作用 ， 所 以 当 表 格 
宽度 超过 40 列 时 ， 可 用 SPC 因 数 规定 打印 格式 。 

2.5.9 DEF 语 名 

这 个 语句 是 在 程序 中 定义 一 个 新 函数 。 
格式 是 : 1 
DEPF FN 变 量 名 (X) = 算术 表达 式 
其 中 新 图 数 的 名 字 是 F N 变 量 名 (X )，X 是 形式 参数 ， 它 必 
须 是 实 型 变量 。 在 程序 的 前 面 有 了 这 个 新 了 图 数 的 定义 后 ， 以 
后 就 可 调用 这 个 新 函数 了 。 例 如 ， 


1 DEF FN RPRCX) 一 INT (TOO 玉 X 十 
口号 ) 7 TOD 

9 R 三 了 

本 人 人 二 人 353 炒 RIB = 芭 。1415S 
台球 民 冰 

409 PRINT  FN PFA): PRINT  FN FI(R 
》 
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健 凤 运行 的 结 汪 条 出 两 们 小数 《 经 过 四 全 五 入 ) 的 人 

125.66 

1256 .64 
要 注意 只 有 用 DEF 语句 定义 过 的 函数 才能 以 F N 变量 
名 〈X) 的 形式 出 现在 表达 式 中 。 

2.5.10 CLEAR 语句 

是 清除 变量 语句 ， 它 将 把 内 存 中 所 有 变量 、 数 组 和 字符 
串 变量 清 为 零 。 

2.5.11 [INVERSE，FLASH 和 NORMAL 

为 了 在 屏幕 显示 时 达到 醒目 作用 而 专门 提供 的 功能 。 
们 可 以 在 程序 中 作为 语 全 的 
作为 命令 使 用 。 

.INVERSE 用 了 这 个 命令 或 语句 ， 可 使 屏幕 上 任何 
由 PRINT 命 令 或 语句 所 显示 的 资料 变 成 白 底 黑 字 ;但 是 键 
盘 输入 的 资料 则 还 保持 正常 显示 。 
FLASH 用 了 这 个 命令 或 语句 ， 可 使 屏幕 上 任何 由 
PRINT 命 令 或 语句 所 显示 的 资料 不 住地 闪 亮 :但 是 键盘 答 


入 的 资料 则 还 保持 正常 显示 。 

NORMAL 可 把 以 土 两 种 显示 格式 恢复 为 正常 的 显 
要 

.5.12 已 KK 和 PO 失 下 


en 
置 的 值 ， 例 如 PRINT PEEK(222) 把 内 存 222 处 的 值 
打印 和 输出，P OK 巨 语句 则 可 把 数值 (必须 在 0 一 255 之 间 ) 
放 入 R AM 中 去 ， 例 如 POKE 8000，A 是 把 变量 A 的 值 
放 到 内 存 8000 处。 被 写 入 到 内 存 的 值 ,可 以 是 一 个 数字 或 变数 
或 算术 表达 式 可 产生 的 值 。 数 值 范围 要 在 0 一 255 之 间 。 
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8 2.6 APPLESOF 工 的 函数 


APPLESOFT 语言 中 允许 使 用 的 轴 数 主要 有 两 大 类 ， 
即 算术 运算 函数 和 字符 串 运算 函数 。 

2.6.1 算术 运算 函数 
ABS(CX) 

得 到 X 的 绝对 值 
EXP(X) 指数 函数 

得 到 ex* 值 ,其 中 ec 取 值 为 2.78289( 即 自然 对 数 底 ) 
LOG(X) 自然 对 数 函 数 ( 即 LNCX) ) 
INTCX ) 取 整 函数 

得 到 小 于 或 等 于 X 值 的 最 大 整数 。 
例如 TINT.(3.56)=3 

[NT -3.56)= 一 4 

若 要 求 对 一 个 数 作 四 人 钨 五 入 处 理 ， 可 以 用 INTCX+0.5) 来 、 
做 到 。 例 如 : 

INT(3.14159 尖 100+0.5)/100=3.14 

对 于 任意 数值 要 求 按 四 舍 五 入 处 理 指 定 小 数位 〈 例 如 两 
位 ) 的 严格 表达 式 是 : SGN (X)X [NT(CABSCX ) 关 100 上 + 
0.5)/100 
RND(X) 随机 函数 

得 到 大 于 零 与 小 于 1 之 间 的 实 型 随机 数 。 
SGN(X) 符号 函数 

决定 一 个 数 的 符号 ， 即 ， 


一 1 当 X< 0 时 
SGN(CX)= 0 当 X=0 时 
1 当 X>0 时 
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SQR(X) 
得 到 X 的 平方 根 (Xz0 ) 
三 角 函 数 ( 即 SIN(X)，,COS(X) ,TAN( 区 ， ATN(CX)) 


X 的 单位 是 弧度 。 
2.6.2 字符 串 运 算 函 数 
ASC(AS$) 


得 到 A $ 中 第 一 个 字符 所 对 应 的 AS CTI 码 。 
例如 
ASC(“ ABC7=65 
CHRS$S$CX) 
得 到 X 值 所 对 应 的 AS CI 字符 串 。 X 的 值 必 须 在 0 一 
255 之 间 , X 之 128 时 ， 所 产生 的 AS CI 字符 串 为 X 值 按 128 


取 模 。 

例如 ， 
CHR 再 (65) = A 
CHR$(193)=A 

LEN(AV$) 


得 到 字符 串 A 有 $ 的 长 度 ， 包 括 空 自 间 几 在册。 
例如 : : 
LEN(“ABCD7=4 
LEFT$(A$,，X) 

得 到 A $ 中 最 左边 的 X 个 字符 ，A $ 及 X 的 值 均 只 能 在 
1 一 255 之 间 。 
例如 ， 

LEFT$( “ABCD”2)= AB 
RIGHTSCAS， X) 
得 到 A $ 中 最 右边 X 个 字符 ,A $ 及 X 的 值 均 只 能 在 1 一 
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255 之 间 。 
例如 : 
RIGHT$ “APBCD”3)=DBCD 
MID$CAS$ ,XI ，X2) 
得 到 A $ 中 第 X1 个 字符 开始 的 向 右 连 续 X 2 个 字符 组 
成 的 字符 串 。 
例如 : 
MID$ (“ABCDEF”3，2)=CD 
STR $CX ) 
将 数值 广 转 换 成 相应 的 字符 串 。 
例如 : 
STR$ (1)=41 (等 号 右边 的 41 是 字符 串 了 ) 
STR$(il000000000)=4.1E+10 等 号 右边 的 也 已 是 
字符 串 。 
VALCAS$) 
将 A $ 转换 成 对 应 的 数值 。 
例如 : 
VAL(“-0.0417)= 一 0.041 
VAL(44.IE4BASE72=41000 
VALl(“B 本 
字符 串 之 间 用 “十 ”符号 表示 字符 串 的 连 


例如 : 
1o 全 亡 = “SHAGNG9 
. 人 局 下 三 “HGID 
他 = 全 和 十 瑟 圳 


469 PRINT Cs 训 
号 口 END 


运行 的 结果 是 输出 : 
SHANGHAI 


8 2.7 其 它 的 常用 困 数 


数值 运算 中 还 经 常用 到 另外 一 些 函 数 ， 对 这 些 函 数 
APPLESOFT 并 不 直接 提供 ， 但 是 可 以 用 APPLES- 
OF 熙 已 提供 的 上 述 基 本 函数 很 方便 地 组 合 起 来 得 到 。 若 是 
在 程序 中 用 DEF 语句 定义 这 类 组 合 而 成 的 函数 ， 使 用 起 来 
就 更 方便 了 。 下 面 列举 这 类 常用 组 合 函 数 的 表达 式 ; 

ARCCOS (X)= 一 ATNCX/SQR(-X 关 X+1)) 二 
1.5707633 计 算 X 的 反 余 弦 函 数值 ,必须 ABS (X)<1 

ARCCOT(CX)= 一 ATNICX)+1.5707633 计算 X 
“的 反正 切 函 数值 。 

ARCCOSHCX)=LOG(X+SQR(CXX 关 X 一 1)) 计 
算 X 的 反 双 曲 余 弦 函 数值 (ABS (X)>1) 。 

ARCCOTHIX)=LOG(CX+1T)/(CX 一 1))72 
计算 X 的 反 双 曲 余 切 函 数值 (ABS (X)>1) 。 

ARCCSCCX)= ATNICL/SQR(X 关 X 一 1)) 十 
(SGN (xX) 一 1) 闪 1.5707633 计算 X 的 反 余 割 函数 
值 C(ABS CX) >1) 。 

ARCCSCHCX)=LOG( (SGN(CX) 尖 SQR(CXX 关 
X+1)+1V/X) 计 算 X 的 反 双 曲 余 割 函数 值 (X>>0 ) 。 

ARCSECCX)=ATN(SQR(CX 关 X-1))+(SGN 
(X)-1) 兴 1.5707633 计算 反正 割 函数 值 (ABS CXJ2P1D)。 

ARCSECHCX=LOG ((SQR(-X 关 X+1)+1]) 
/X) 计算 X 的 反 双 曲 正 割 函数 值 (0<X 委 1) 。 

ARCSINCOX)= ATN(OX/SQR(-X 关 X+1)) 
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计算 X 的 反正 弦 函 数值 (ABS(X)<1)。 

ARCSINH(X) =LOG(X+SQR(XX 关 X+1l)) 计 算 
X 的 反 双 曲 正弦 函数 值 。 

ARCTANH(X) =LOG((I+XJ)/L-X))72 计 算 X 
的 反 双 曲 正切 函数 值 (ABS(X)<1)。 

COSH(X)=(EXP(X)+EXP(-X))/2 计算 X 的 
双 曲 余弦 函数 值 。 

COT(X)=LLTAN(X) 计算 X 的 余 切 函 数值 (X < 
>>0) s 
COTH(X) =EXP(-X)J/CEXP(X) 一 EXP( 一 X)) 关 
2+1 计算 X 的 双 曲 余 切 函数 值 (X<<>>0 )。 

CSC(X)=1/SIN(X) 计算 X 的 余 割 函数 值 (X< 
之 0 ) “ 

CSCH(X)=2/(EXP(X) -EXP(--X) ) 计 算 X 
的 双 曲 余 割 函数 值 (X<>>0 )。 

LOG.(X) =LOG(X)7/LOG(a) 计算 X 的 以 a 为- 
底 的 对 数值 (a>0，X > 之 0 )。 ， 

LOGi(X) =LOG(X)/2.30258509 计算 X 的 常用 对 
数值 〈 以 10 为 底 )， 必 须 X 0 。 

MOD.(X) =INT((X/a-INT(X/a) 兴 a+0.05) 兴 
SGN(X/a) 计算 X 被 a 除 之 后 的 余数 (a< >0) ， 即 取 模 ， 上 
例 称 为 XMODa。 

SEC(X) =1/cos(X) 计算 X 的 正 割 函数 值 (X 扫 > 
立 /2) 

SECH(X) =2/(EXP(X)+EXP(--X)) 计算 X 
的 双 曲 正 割 函数 值 。 

SINH(X) =(EXP(X)-EXP(-X))/2 计算 X 的 
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全 


双 曲 正 络 函数 值 。 
TANH(X)=-EXP( 一 X)/(EXP(X) 十 已 XP 


(一 X 为 光 2+1 计算 X 的 双 曲 正切 函数 值 。 


$ 2.8 程序 编制 及 调试 


在 $2.3 介 绍 键盘 使 用 时 已 简单 地 介绍 了 程序 的 编制 ， 这 
一 节 作 较 详细 介绍 。 


LIS 工 命 今 * 


LIST 命 令 可 把 主机 内 存 中 的 程序 显示 或 打印 出 来 ， 


.LIST 命 令 有 如 下 多 种 形式 ; 


中 LIST (然后 回 车 ， 以 下 相同 ) 

把 内 存 中 全 部 程序 行 都 列 印 出 来 。 

四 LIST 行 号 

把 内 存 中 某 一 行 号 的 程序 语句 列 印 出 来 。 

全 LIST 行 号 1， 行 号 2 
把 内 存 中 从 行 号 1 到 行 号 2 的 某 段 程序 行 都 列 出 来 。 
人 LIST 行 号 1， 

把 内 存 中 从 行 号 1 开始 到 程序 结束 的 全 部 程序 行 都 列 出 


@ LIST， 行 号 2 

把 内 存 中 行 号 2 以 上 的 所 有 程序 行 全 部 都 列 印 出 来 。 

在 列 印 程序 行 的 过 程 中 若 要 求 暂停 列表 可 按 CTRL-S 
键 ， 再 按 其 它 任何 键 ,又 会 继续 列表 ， 若 是 按 CTRL-C 键 ， 
则 会 强迫 中 断 列表 。 

人 

空格 在 APPLESOFTT 的 保留 字 和 表达 式 中 ， 是 没有 

任何 意义 的 ， 故 在 程序 编辑 中 可 不 考虑 空格 的 位 置 。 但 假如 
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是 在 行 号 中 的 字符 ， 编 辑 时 就 必须 注意 ， 空 格 也 是 字符 。 在 
APPLEL 屏幕 上 显示 的 程序 行 两 边 都 留 有 空位 ， 假 如 
程序 编辑 时 ， 在 程序 行 两 边 正 好 是 引号 内 的 空位 ， 则 在 编辑 
时 需 注意 空格 的 安排 。 方 便 的 做 法 是 在 编辑 前 ， 先 用 命令 
POKE 33，33 设 定 屏幕 宽 为 33 列 ， 使 程序 两 边 不 留 空位 ， 
这 样 就 不 会 出 现 上 述 困难 了 。 编 辑 结束 , 打 入 命令 P OKE33， 
40 恢 复 到 正常 宽度 。 程 序 中 字符 增 、 删 、 改 的 方法 前 面 已 介 
绍 过 了 ， 不 再 重复 。 

程序 调试 
为 了 检查 程序 编制 是 否 正 确 ， 可 通过 运行 动态 检查 程序 
逻辑 是 否 有 错 。 检 查 错误 的 方法 是 多 种 多 样 的 ， 可 以 在 程序 
中 安排 STOP 语句 ， 执 行 到 一 定 阶段 暂停 运行 ， 可 以 调 出 


机 器 内 存 检查 计算 的 中 间 结 果 等 。 还 有 一 种 常用 的 方法 是 跟 


踪 调 试 ， 跟 踪 整 个 程序 的 运行 过 程 。 跟 踪 命 令 为 TR ACE。 
例如 ; 

先 键入 命令 TRACE, 使 主机 于 置 跟踪 状态 ， 然 后 打 入 
程序 如 下 ; 


10 FOR I= 1 TO 
20 FORJ = 1 T0 4 
30 FORK = 1 TO 


4 READ A(T,J,K) 
soO PRINT A(I,J,K) 


Go NEXT 
7 NEXT 
So NEXT 


20 DATA 1 2 本 5 4 5:67 8, 93:10 tl， 
testsyl14sdSsyteo17， 18， 19,20 

100 - DATA 21, 22,23,24,25,26,27,28 
9 
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运行 情况 如 下 ; 


间 荆 〇 
# 各 品 
间 各所 
提 折 避 
厘 恕 占 
和 提 各 心 
提 白 已 
井 CO 
音 白 口 
间 白 品 
井 如 品 
厅 如 心 
井 各 品 
井 恕 口 
间 白 操 
埋 如 已 
埋 如 器 
井 各 口 
音 白 已 
井 C 避 
井 白 口 
间 白 属 
井 斩 口 
音 白 局 
磊 如 已 
厘 恕 品 
厘 白 口 
间 白 品 
着 白马 
井 恕 避 
井 白 吕 
井 各 已 
间 白 已 
井 白 已 
非 白 已 
井 恕 局 
其 白 吕 


井 忆 怠 
#4D 
井 4 总 
井 7O 
井 入 心 
井 4O 
井 7 口 
井 绍 
井 入 怠 
间 7D 
井 信心 
厘 纺 操 
井 7 口 
韩 4 口 
井 人 4 口 
##7OD 
井 4 口 
酝 纯 口 
井 了 操 
提纯 口 
井 和 结巴 
韩 了 口 
间 奸 避 
井 对 口 
韩 了 避 
香 纺 已 
间 寻 已 
#Z 口 
咎 心 
持 嫩 品 
井 了 7 全 
捍 络 已 
# 井 嫩 
# 埋 7 总 
井 咎 口 
井 分 品 
提 志 已 


厘 阅 
三 品 
# 井 号 口 


提 汪 O 


井 马 口 
井 号 口 
井 忌 属 
井 握 人 
# 井 扎 口 
井 羡 品 
韩 号 操 
间 己 O 〇 
井 日 心 
井 品 口 
井 己 品 
井 33 口 
井 握 口 
间 写 局 
井 芭 口 
捍 扎 口 
井 己 心 

工 台 
捍 与 器 
间 马 口 
井 日 口 
井 与 心 
井 与 总 
井 卫 局 
厘 己 局 
提包 局 

本 属 
井 马 上 口 
井 忆 心 
井 总 
# 马 口 


提 呈 号 也 


非 日 C 


非 忆 如 


于 吧 


扫 结 


站 1OO 


退出 跟踪 的 命令 是 NO TRACE， 即 取消 跟踪 ， 恢复 
正常 ， 使 DOS 命令 能 恢复 作用 。 
列表 打印 

要 把 内 存 中 的 程序 输出 到 打印 机 上 的 步骤 是 : 

@ 打开 打印 机 电源 和 接 通 打印 状态 。 

@ 键入 PR 并 1， 联通 打印 机 。 ， 

图 若 在 打印 机 上 是 40 列 输出 ， 则 只 要 键入 LIST 就 行 
了 ;， 若 要 求 80 列 输出 ， 则 应 该 先 键入 命令 POKE 1656 上 + 
SLOT，80 其 中 SLOT 指 的 是 打印 机 插件 捅 的 槽 号 ， 一 
般 插 在 1 号 择 枢 上 ， 所 以 一 般 打 印 80 列 的 命令 是 POK 瑟 
1657，80， 回 车 ， 然 后 键入 LIST 就 可 ,这 时 程序 只 在 打 印 
机 输出 ， 屏 幕 上 没有 程序 显示 。 若 要 恢复 40 列 打印 输出 和 愤 
幕 可 见 输 出 ， 则 只 要 键入 POKE 1657，40 〈 假 定 打印 机 揪 
件 是 在 1 号 插 槽 ) 即 可 。 

8 2.9 数据 处 理 型 的 程序 编制 技巧 

2.9.1 程序 编制 方法 

计算 机 的 运算 过 程 与 人 们 算 题 的 思路 类 似 ， 即 ; 

(1) 首先 要 输入 原始 数据 。 所 以 在 程序 的 第 一 部 分 要 有 
输入 数据 语句 ， 输 入 数据 的 语句 多 种 多 样 ， 根 据 需要 选择 ， 
.使 用 数组 的 ， 必 须要 有 数组 说 明 语句 。 另 外 要 指出 的 是 ， 
APPLESOFT 语 言 编制 的 程序 在 运行 时 ， 首 先 自动 把 各 
个 变量 取 零 ， 所 以 程序 中 变量 常 不 必 先 赋值 零 。 

(2) 要 有 解 题 的 数学 模型 ， 这 常 是 程序 编制 中 的 核心 问 
题 ， 要 用 计算 机 解 题 ， 就 要 设计 好 适合 于 计算 机 计算 的 算法 
模型 。 

(3) 要 设计 好 计算 结果 的 输出 .为 了 要 使 计算 结果 清楚 、 
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明了 、 正 确 地 打印 输出 ， 要 在 程序 中 很 好 地 安排 打印 格式 语 
句 。 

2.9.2 程序 编制 技巧 

一 般 认 为 ， 好 的 程序 应 该 是 运行 速度 较 快 ， 所 占 内 存 较 - 
小 ， 结 构 清 楚 ， 通 用 人 性 强 ， 维 护 修改 方便 等 ， 以 下 简单 介绍 
数据 处 理 类 型 的 程序 设计 中 应 该 注意 的 几 点 : 

(1) 程序 中 尽量 避免 使 用 常数 ， 特 别 是 整 常数 ， 而 应 该 
及 早 把 这 类 常数 赋值 给 变量 ， 以 后 再 用 这 个 值 时 就 可 以 用 变 
量 代 替 了 ， 这 样 可 以 加 快运 算 速度 ， 有 时 还 节省 内 存 。 

(2) 尽量 使 用 在 程序 最 前 面 已 经 用 到 的 变量 ， 可 以 加 快 
运算 速度 。 

(3) 程序 中 最 常用 到 的 子 程序 按 排 的 行 号 应 该 最 小 ， 能 
加 快 调用 的 速度 。 

(4) 在 NEXT 语 名 后面 省 去 循环 变量 ， 可 以 提高 运算 
速度 。 

(5) 能 在 循环 语句 外 面 执行 的 语句 切 勿 移 到 循环 内 部 去 
执行 ， 可 以 加 快运 算 速 度 。 | 

(6) 注释 语句 中 的 说 明 要 尽量 简洁 ， 以 节省 内 存 。 

(7) 数组 中 尽量 用 到 第 零 号 元 素 ;变量 尽 可 能 重复 使 用 ， 
以 节省 内 存 。 

(8) 每 个 程序 行 号 要 占用 5 个 字 节 的 内 存 ， 因 此 应 尽量 ， 
节省 使 用 程序 行 ， 在 某 些 情况 下 可 以 把 几 个 语句 放 在 一 个 程 
序 行 内 ， 用 冒号 隔 开 。 缺 点 是 编辑 、 修 改 和 阅读 较 困 难 。 

(9) 采用 READ/7DATA 语 句 的 输入 方式 占用 内 存 较 
多 ， 可 选用 INP UT 语 句 ， 或 从 数据 文件 〈 见 后 面 介绍 ) 答 
入 数据 。 

(10) 在 程序 中 尽 可 能 用 开关 语句 (ON GOTO，ON 
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GOSUB) ,可 以 加 快 转移 运算 速度 。 
$ 2.10 APPLESOFT 了 出 错 信息 表 


由 于 BAS IC 解释 程序 对 BAS IC 语言 的 程序 是 执行 一 
句 ， 检 查 一 句 ， 因 此 对 程度 执行 过 程 中 ， 所 遇 到 的 语法 错误 
或 运算 过 程 错误 ， 系 统 将 发 出 警告 ， 并 显示 错误 信息 ， 给 出 
出 错 类 型 和 相应 的 语句 行 号 ， 并 停止 程序 的 继续 执行 。 系 统 
给 出 的 错误 信息 , 按 整数 BAS IC 和 APPLESOFT 及 DOS 
三 类 输出 。 这 里 只 将 APPLES OFT 出 错 信息 含义 列举 如 
下 。 

(1)?BADSUBSCRIPT ERROR 数 组 变量 定义 
不 正确 。 常 见于 程序 中 用 到 的 数组 变量 元 素 超出 了 已 说 明 的 
范围 〈 即 所 用 下 标 变量 的 下 标 超出 语句 所 定义 数组 的 范围 ) 例 
.如 ， 

10 DIM X (13) 

20 FOR [II=1 TO 20 

30 了 READ X(I) 

40 NEXT 1! 

50 DATA 13，20，11，2,4,5,3,7,4,6 

60 DATA --5,6,77,8,11,3,3, 一 4,0,- 5 运行 这 个 
程序 就 会 出 错 。 

(2) ? CAN'T CONTINUE ERROR 若 根本 没有 
程序 ， 或 已 经 出 现 了 严重 错误 ， 或 者 已 经 修改 了 程序 之 后 ， 
还 用 C ON T 命 令 执行 程序 时 就 会 出 错 ， 称 为 不 能 继续 运行 
错 。 ， 

(3) ? DIVISION BY ZERO ERROR 分 母 为 
零 错 ， 因 为 在 任何 数值 计算 都 禁用 零 除 。 
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(4) ? _ FORMULA TOO COMPLEX ERROR ， 
公式 太 复杂 错 。 一 个 语句 中 若是 IF 〈 字 符 串 )THE N 型 方 
式 已 执行 了 两 次 以 上 ， 则 出 错 。 

(5) ? ILLEGAL DIRECT ERROR 非法 命令 错 。 
把 INPUT,DEF FN 或 GE T 作 为 直接 操作 方式 的 命令 使 
用 就 出 错 。 

(6) ? ILLEGAL QUANTITY ERROR 非法 数 
值 错 。 有 如 下 一 些 情况 ， 

人数 组 的 下 标 用 了 负 值 ; 

包 对 零 或 负 值 进行 LO G 函数 的 运算 ; 

全 对 负 值 进行 SQR 函 数 运算 ; 

曲 AT 人 TB 中 A 为 负数 ，B 不 是 一 个 整数 ; 

加 在 MID$,LEFT$,RIGHI$,WAIT,PEEK， 
POKE，TAB 和 SPC 等 图 数 中 使 用 了 不 恰当 的 参数 。 

(7) ? NEXT WITHOUT FOR ERROR 指 在 
N 刁 X 工 语句 前 面 没 有 F OR 语 名 与 之 对 应 。 

(8) ? OUT OF DATA ERROR 数 据 不 够 用 。 在 
执行 READ 语 句 时 ，DATA 语 句 中 的 数据 已 经 用 完了 。 

(9)? OUT OF MEMORY ERROR 超 出 内 存 错 。 
原因 可 能 是 ; 

中 程序 太 大 ， 变 量 太 多 ， 字 符 串 运算 中 没有 适当 地 用 
A=FRE(0I) 函 数 清除 作废 的 单元 ; 

@ FOR 循环 嵌 套 超过 10 层 ， 调 用 子 程序 嵌 套 超过 24 
层 ; 

多) 算术 表达 式 太 复杂 ， 括 号 嵌 套 超过 36 层 ; 

思 LOMEM: 和 HIMEM:， 两 语句 所 定义 的 变量 值 
不 在 一 65535 到 65535 之 间 。 


(10) ? OVEREFLOW ERROR 打 键 输入 或 程序 计 
算 产 生 的 数字 太 大 ， 发 生 溢出 。 

G1) ? REDIM'D ARRAY ERROR 重 新 定义 数 
组 变量 错 。 车 是 程序 中 对 于 已 定义 了 的 数组 变量 又 去 重复 定 ， 
义 则 出 错 。 

(12) ? RETURN WITHOUT GOSUB ERROR 
指 在 RETURN 之 前 没有 与 之 对 应 的 GO SUB 语 句 。 
(13) ? STRING TOO LONG ERROR 字 符 串 太 

错 。 字 符 串 表达 式 的 长 度 超过 255 个 字符 时 出 错 。 

(14) ? SYNTAX ERROR 语 法 错 。 所 用 语法 不 对 ， 
或 其 它 出 错 信息 不 能 表示 的 出 错 。 

(15) ?TYPE MISMATCH ERROR 类 型 不 匹配 . 
错 。 语 句 中 提供 的 值 〈 数 或 字符 串 ) 与 变量 的 类 型 不 匹配 。 

(16) ? UNDEF'D FUCTION ERROR 未 定义 函 _ 
数 错 。 程 序 中 调用 了 一 个 还 设 有 定义 的 函数 。 

(17) ? UNDEF'D STATEMENT ERROR 未 
定义 语句 错 。 程 序 中 用 GOTO 或 GO SU B 语句 转向 一 个 
不 存在 的 行 号 时 出 错 。 

以 上 的 出 错 信息 可 在 222 内 存单 元 得 到 错误 编码 ， 如 下 


表 ; 
PE 下 K (222 ) 出 错 情况 
0 NEXT 与 FOR 不 配对 
16 语法 错 
22 RETURN 与 GOS UB 不 配对 
42 数据 不 够 用 
53 非法 数值 


69 - 溢出 
5 


7 内 存 不 够 用 


90 未 定义 语句 

107 数组 变量 定义 不 正确 

120 重复 定义 数组 变量 

133 分 母 为 零 

163 类 型 不 匹配 

176 字符 串 太 长 

191 公式 太 复杂 

224 ” 用 到 的 函数 未 定义 

254 响应 INP UT 语 句 时 ， 输 
入 不 适当 

255 企图 作 CTRE 一 和 中 断 


& 2.11 DOS 命令 


2.11.1 文件 名 称 与 类 型 

放任 机 应 用 让 所 指 轴 六 牢 是 站 最 证 处 尖 生 让 区 让 而 汪 
盘 ) 中 的 一 批 数据 ， 在 一 般 意 义 上 说 ， 某 一 名 称 文件 内 的 信 
息 的 有 目的、 形式 和 内 容 上 彼此 相似 。 这 类 数据 既 可 以 是 字符 ， 
”也 可 以 是 数字 ， 或 兼 而 有 之 。 所 以 文件 可 以 代表 一 段 文字 ， 
也 可 能 表现 为 一 段 程序 或 一 批 数 字 。 每 个 文件 都 必须 起 一 个 
名 字 ， 称 为 文件 名 ， 根 据 磁 盘 操 作 系 统 (DO S ) 命令 可 对 
文件 存 取 或 管理 。 文 件 取 名 的 规则 是 : 

《1) 文件 名 的 长 度 必 须 在 1 到 30 个 字 之 间 ， 超 出 的 字 将 
无 效 而 被 售 掉 。 

(2) 文件 名 必须 由 字母 开始 。 

《3) 任何 键盘 输入 的 字符 都 可 以 作为 文件 名 的 一 部 分 ， 
但 是 逗号 不 能 用 。 
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(4) 也 可 以 用 不 会 显示 在 屏幕 上 的 字符 〈 例 如 有 些 与 
CTREL 键 合用 时 ) 做 为 文件 名 的 一 部 分 ， 在 磁盘 目录 上 也 不 
显示 。 因 此 一 般 不 将 控制 字符 插入 到 文件 名 中 ， 当 然 这 也 不 
失 为 使 文件 名 保密 的 方法 之 一 。 

APPLE 开 的 DO S 操作 系统 提供 某 些 命令 来 定义 执 
行 时 的 操作 ，CATALOG 命 令 可 将 磁盘 上 文件 名 输出 〈 显 
示 ), 所 显示 目录 的 最 左 一 行 表示 文件 类 型 ， 其 存 取 和 管理 方 
法 均 有 所 不 同 。 显 示 代 码 所 表示 的 文件 类 型 如 下 : 

代 三 意义 
APPLESOFT 程 序 
二 进 制 映 象 文 件 
整 型 BAS IC 程序 
文本 文件 
可 被 执行 的 二 进 制 文件 

2.11.2 指定 磁 益 驱动 器 8 

前 面 已 经 介绍 过 APPLE HL PLUS 微型 计算 机 有 自 
动 引入 磁盘 操作 系统 (DO S ) 的 功能 ,但 是 开机 之 前 必须 把 
系统 主 盘 插 在 与 驱动 器 插件 的 DRIVE ! 接口 相 联 的 驱动 器 
( 称 1 号 驱动 器 ) 中 ， 然 后 开 栅 , 这 时 这 个 驱动 器 的 红 灯 点 亮 ， 
显示 屏 上 渐渐 显示 磁盘 操作 系统 引入 的 信息 。 过 一 会 儿 ， 红 
动 器 红 灯 灭 ， 显 示 屏 出 现 APPLES OFT 提示 符 ， 即 可 操 
作 了 。 在 有 两 个 驱动 器 的 情况 下 , 1 号 驱动 器 命名 为 D 1; 另 一 
驱动 器 命名 为 D2。 驱 动 器 工作 状态 有 如 下 特点 ， 键入 DO S 
命令 〈 后 面 介绍 ) 时 车 没有 指定 驱动 器 号 ， 则 表示 这 个 命令 
将 访问 1 号 驱动 器 。 若 要 访问 2 号 驱动 器 ， 则 在 DO S 命令 
的 后 面 要 有 指定 2 号 驱动 器 的 参数 。 例 如 若是 开机 后 立即 发 
出 CATALOG 命 令 ， 则 表示 列 出 D 1 驱动 器 中 磁盘 目录 ， 
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中 门 一 男 产 


若 键入 CATALOG，D2, 则 表示 列 出 D 2 驱动 器 中 目录 。 
但 在 D 2 驱动 器 被 指定 后 ， 若 不 再 重新 指定 D 1 驱动 器 ， 则 
所 有 磁盘 命令 将 访问 D 2 驱动 器 。 

2.11.3 初始 化 命令 

刚 买 来 的 新 磁盘 是 不 能 立即 用 作 存 取 盘 的 ， 厂 家 生产 的 
磁盘 是 适应 不 同 的 计算 机 用 的 。 到 具体 的 计算 机 上 使 用 之 前 ， 
先 得 在 该 计算 机 上 做 初始 化 (LINITIALINEI) 工 作 , 也 称 
格式 化 ， 即 ， 

《1) 对 磁盘 进行 格式 化 。 若 这 个 磁盘 不 是 才 买 来 的 新 盘 ， 
而 是 存 有 资料 的 旧 盘 ， 则 还 会 抹 掉 上 面 的 所 有 信息 ， 然 后 划 
分 磁道 和 扇 区 的 地 址 。 

(2) 将 DO S 存放 在 磁盘 的 $00 一 $02 三 个 磁道 上 ， 因 
此 ， 凡 是 已 经 格式 化 的 磁盘 都 可 以 作为 DO S 的 引导 盘 了 。 
(3) 为 磁盘 建立 文件 目录 区 〈 第 $11 磁 道 ), 填 写 该 磁盘 
的 卷 号 ， 卷 号 可 以 在 初始 化 时 指定 ， 若 不 指定 ， 则 为 254 号 。 
一 个 磁盘 只 有 一 个 卷 号 ， 并 不 能 修改 。 

(4) 在 发 出 初始 化 命令 之 前 ,主机 内 存 中 已 有 的 B AS IC 
程序 将 作为 这 个 磁盘 以 后 用 于 开机 自动 调 入 执行 的 第 一 个 程 
序 或 称 问候 程序 ， 或 称 欢 迎 程序 。 因 为 初始 化 后 ， 这 个 欢迎 
程序 以 文件 形式 存在 磁 委 上 了 ， 并 附 以 文件 名 称 。 若 是 在 初 
- 始 化 之 前 没有 特殊 必要 ， 可 用 原 有 DO S 引入 后 主机 中 的 程 
序 作为 欢迎 程序 、 不 再 设计 特别 的 程序 ， 即 可 键入 初始 化 命 
令 ;， 若 有 特殊 需要 ， 也 可 以 先 设计 一 个 欢迎 程序 ， 然 后 初始 
化 。 例 如 ， 假 如 要 在 一 块 新 盘 上 存 一 批 数学 方法 程序 ， 为 使 
将 来 这 块 盘 做 引导 盘 时 ,可 立即 在 屏幕 上 显示 它 的 专门 用 途 ， 
则 在 这 块 盘 初 始 化 之 前 ， 先 在 主机 中 键入 如 下 程序 ; 


1 HOME 
2 MTAR 1 
SO FRINT SPCI( 8B) MATHMATICAL HM 


ETHOD" 

so VTAB 20 

6D PRINT SPC( 23)3"MET.INS.of " 

70 PRINT 

80 PRINT SPC( 25)3"gILIN PROVIN 
人 2 碟 人 


V 


然后 再 键入 初始 化 命令 。 将 来 当 这 块 盘 用 作 引 导 盘 时 ， 引 入 
DO AS 后 将 立即 自动 运行 这 个 欢迎 程序 ， 并 在 屏幕 上 有 如 下 


MATHMATICAL METHOD 


MET. INS. of 


JILIf PROUIMNCE 


-磁盘 格式 化 的 方法 ; 
届 若 只 用 一 个 磁盘 驱动 器 
步 又 ， 


a) 将 系统 主 盘 插入 D 1 驱动 器 ， 开 机 ; 
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b) 若 有 特殊 需要 可 在 主机 打 入 欢迎 程序 ， 若 无 这 个 要 


1 求 ， 则 可 不 作 处 理 。 拿 出 主 盘 ， 放 进 新 盘 ; 


c) 键入 命令 INIT HELLO 回 车 .其 中 HELLO 是 欢 
迎 程序 文件 名 。 这 时 驱动 器 红 灯 亮 ， 发 出 转动 声 ， 约 两 分 钟 
后 驱动 器 红 灯 灭 ， 格 式 化 完成 。 

凶 若 用 两 个 磁盘 驱动 器 

步骤 ， 8 

a) 将 系统 主 盘 插入 D1 驱 动 器 ， 要 做 格式 化 的 新 盘 插 入 
D 2 驱动 器 ， 开 机 ; 

b) 打 入 欢迎 程序 ， 或 不 作 处 理 ; 

c) 键入 命令 INIT HELLO,D 2, 回 车 ， 驱 动 器 红 
灯亮 ， 发 出 转动 声 ， 约 两 分 钟 ， 驱 动 器 红 灯 灭 ,格式 化 完成 。 
格式 化 后 ， 磁 盘 上 已 存 有 名 字 为 HELLO 的 欢迎 程序 ， 
当 这 个 磁盘 将 来 用 作 引 导 盘 时 ， 将 立即 自动 运行 这 个 欢迎 程 
序 。 已 经 格式 化 的 磁盘 应 贴 上 标签 注 明 在 多 大 内 存 容量 系统 
中 进行 初始 化 ， 以 及 初始 化 日 期 。 例 如 “48K 盘 1984 年 1 月 

1 日 初始 化 

2.11.4 磁盘 格式 ， 

每 个 磁盘 被 APPLEIL 的 DO S 分 成 35 个 同心 国 (下 
道 ，track)， 这 些 磁 道 编号 为 0 到 34($ 0 到 $34 ) ， 每 一 个 
磁道 分 为 16 个 扇 区 (sector)， 扇 区 编号 为 0 到 15 ($ 0 到 
$F ), 每 个 扇 区 可 以 贮存 256 个 字 节 资 料 。 所 以 在 一 个 磁盘 上 
共有 560 个 扇 区 , 共 可 贮存 143,360 个 〈143K ) 字 节 的 资料 。 
其 中 DO S 占用 3 个 磁道 48 个 扇 区 位 置 ， 磁 盘 索引 文件 占用 
1 个 磁道 16 个 扇 区 的 位 置 ， 其 余 31 个 磁道 共 496 个 扇 区 用 于 
贮存 资料 和 程序 文件 。 

第 11 个 磁道 做 为 磁盘 的 索引 文件 位 置 ， 这 里 对 每 个 文件 
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列 出 了 名 称 、 文 件 形式 .占用 扇 区 数目 以 及 是 否 锁 住 等 信息 。 
索引 文件 磁道 的 每 一 个 扇 区 最 多 可 以 存放 七 个 文件 的 资料 ， 
整个 索引 文件 位 置 最 多 可 容纳 105 人 (第 0 
扁 区 不 存 贮 索引 文件 ) 。 

2.11.5 整 片 磁 抢 的 复制 

把 系统 主 盘 (D OS 3.3 版 本 ) 插入 D1 驱 动 器 ， 键 入 
CATALOG( 列 目录 命令 )， 就 能 把 主 盘 上 的 文件 全 部 列 出 


如 下 : 


DISk VDLUME 2S4 


冰 和 Do HELLO 

阔 工 妇 1 呈 ANIMALS 

来 下 忆 避 人 记 FLE PROMS 
水 TI GOe 和 FFLESOFT 

水 芽 2 APFPLEYVISTION 
米 T 7 BIORHYTHM 

于 玉 加 4 SBDOTI 

DO BRIAN7S THEME 
于 已 OCS CHAIN 

冰 I OO9 COLOR DEMO 

有 DO COLOR DEMOSOFT 
冰 I GO9 CODFY 

六 B_DOS COPY .OOBJOD 

和 GOD CODFY 

半生 to EXEC DEMOD 

水 忆 020 上 ID 

下 已 CSC FRRBASIC 

水 已 CSD INTEASIC 

和 CO2B8 LITTLE BRICK OUT 
阔 辣 OOS MAKE TEXT 

冰 EB_ DO9 MASTER CREATE 
下 E O27 MUFFIN 
和 QsSt PRHONE LIST 

米 语 口 10 RANDOM 
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炒 请 QOS RENUMBER 
水 和 0O3293 RENUMBER INSTRUCTIONS 
冰 有 GOS RETRIEYE TEXT . 


其 中 DISK VOLUME 254 表 示 磁 盘 为 254 卷 ; 关 符 号 ; 
代表 文件 已 锁 住 ( 见 后 面 介 绍 ); 工 等 字符 代表 文件 形 号 : 三 
位 数字 代表 这 个 文件 所 占用 的 扇 区 ， 最 小 的 文件 ( 空 文件 ) 占 
有 一 个 扇 区 。 若 一 个 文件 占用 的 扇 区 超过 255 个 ， 则 这 个 数 
目 将 从 零 开 始 重 新 计算 ， 但 这 并 不 影响 这 个 文件 的 真正 占用 
位 置 。 

以 下 逐个 介绍 各 个 文件 的 简要 含义 ， 详细 的 应 用 将 在 后 
面 章节 中 分 别 介绍 。 

HELLO 文 件 是 欢迎 程序 ,为 APPLESOFT 型 文件 ， 
占 6 个 扇 区 。 开 机 即 自动 运行 显示 ， 并 把 INTEGER 解释 
程序 装 入 内 存 。 

ANIMALS 是 游戏 程序 ， 只 有 去 掉 写 保护 后 才能 顺 
利 执行 ， 因 为 执行 过 程 中 有 写 入 磁盘 的 操作 。 

APPLESOFTI 用 于 并 非 自 启动 固化 RO M 的 开机 
程序 , 对 APPLEH PLUS 无 效 。 

-APPLEViSIOW 游戏 程序 ， 运 行 唱歌 跳舞 程序 。 

BIORHYTHM 游戏 程序 ， 生 命 曲线 演示 。 

BOOT13 13 扇 区 磁盘 的 引导 程序 。 

CHAIN 程序 连接 运行 程序 。 

COLOR DEMO 用 整 型 BASIC 写 的 彩色 示范 程序 。 
COLOR DEMOS OFT 用 APPLESOFT 
BASIC 写 的 彩色 示范 程序 。 

COPY 复制 整 片 磁 盘 程序 ， 用 整 型 B AS IC 编写 。 
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COPYA 0 B AS IC 编写 的 复制 
整 片 磁盘 程序 。 

EXEC DEMO 用 EXEC 命 令 的 示范 程序 。 

FID 多 种 功能 的 程序 。 

FPBASTIC 为 APPLESOFT 的 解释 程序 。 

INTBASIC 整 型 BASIC 的 解释 程序 。 

LITTLE BRICK OUT 用 游戏 操纵 杆 玩 的 游戏 
程序 。 

MAKE TEXT 建立 文本 文件 的 示范 程序 。 

MASTER CREATE 建立 启动 系统 的 应 用 程序 。 

MUFFIN 将 1 扇 区 磁盘 转换 成 16 扇 区 程序 。 。 

PHONE LIST 存 贮 电话 号 码 的 程序 。 

RANDOM 随机 文件 的 示范 程序 。 

RENUMBER 重 编程 序号 和 处 理 程 序 连接 的 程序 。 

RENUMBER INSTRUCTIONS 重 编 号 程序 使 
用 的 说 明 。. 

RETRIEVE TEXT 检索 文本 文件 程序 。 

由 于 系统 主 盘 对 微型 机 的 使 用 很 是 重要 ， 除 应 妥善 保管 
外 ， 还 应 该 复制 供 平时 使 用 ， 原 盘 更 应 很 好 保管 。 在 这 里 先 . 
介绍 整 片 磁盘 复制 的 方法 〈 复 制 前 新 磁盘 不 必 先 做 格式 化 工 
作 )。 

只 用 一 个 驱动 器 复制 磁盘 的 方法 

步骤 ， 

作 把 系统 主 盘 〈DOS3.3 版 本 ) 捅 入 驱动 器 ; 

了 @ 键入 RUN C OPYA， 同 车 ， 这 时 从 磁盘 导入 程序 
并 运行 ， 在 屏幕 上 显示 : 

APPLE DISKETTE DUPLICATION PR- 
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OGRAM 


ORIGIN AL SL OT: DEFAULT=6 | 


表示 已 进入 复制 程序 , 要 求 指 定 “ 源 盘 ” 的 驱动 器 插件 槽 号， 
同时 在 右边 以 缺席 选择 显示 提醒 槽 号 为 6。 在 这 种 情况 下 者 操 
” 作 人 员 不 作 选 择 ， 即 表示 系统 认为 驱动 器 已 插 在 第 6 个 槽 号 
上 了 。 若 我 们 已 肯定 揪 在 第 6 个 槽 号 ， 人 人 轩 本 
键 就 行 了 ， 这 时 又 显示 : 

| ORIGINAL SLOT: 6 


DRIVE，. | DEFAULT=1 


表示 “ 源 盘 ”的 张 动 器 插件 已 确定 插 在 6 号 槽 ,要 求 指定 “ 源 
盘 ” 的 驱动 器 编号 ， 在 右边 以 缺席 选择 显示 提醒 驱动 器 号 为 
1。 若 我 们 肯定 “ 源 盘 ” 已 在 上 号 驱动 器 ， 则 也 只 要 按 回 车 键 
就 行 了 ， 这 时 又 显示 :; 

DRIVE:， 1 


DUPLICATE SLOT: . DEFAULT=6 


表示 “ 源 盘 ”的 驱动 器 已 指定 为 1 号 ， 要 求 指定 “复制 盘 ' 揭 
驱动 器 插件 号 ， 右 边 以 缺席 选择 显示 提醒 槽 号 是 6, 这 时 再 按 
回 车 键 ， 则 显示 ， 

DUPLICATE SLOT:， 6 


DRIVE， DEFAULT=? 


表示 已 确认 “复制 盘 ” 的 捅 槽 是 6 号 ， 这 时 又 要 求 输入 “ 复 
制 盘 ”的 所 在 驱动 器 号 ， 右 边 提示 为 2 号 驱动 器 ， 但 是 由 于 
我 们 只 用 一 个 驱动 器 ,< 复制 盘 ” 在 复制 时 也 必须 放 在 1 号 驱 
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动 器 ， 所 以 我 们 只 好 按键 1 ， 这 时 立即 显示 : 

- -PRESS “RETURN” KEY TO BEGIN 
COPY 一 一 要 求 按 回 车 键 进入 复制 。 按 回 车 键 ， 则 显示 ; 

INSERT ORIGINAL DISK AND PRESS 
RETURN 要 求 插入 “ 源 盘 ”并 按 回 车 键 。 照 此 办 理 (若是 
复制 系统 主 盘 , 则 不 必 把 主 盘 拿 出 来 了 ;， 若 复制 别 的 ^ 源 盘 ”， 
则 必须 拿 出 系统 主 盘 ， 插 入 “ 源 盘 妨 , 则 在 显示 屏 的 “ 源 盘 ? 
槽 口 右边 位 置 显 示 READING， 驱动 器 红 灯 亮 ， 不 久 红 灯 
灭 ， 显 示 ; 

INSERT DUPLICATE DISK AND PRESS 
RETURN 要 求 取出 源 盘 ， 把 “复制 盘 ” 揪 入 驱动 器 ， 

再 按 回 车 键 。 照 此 办 理 ， 这 时 在 显示 屏 复制 盘 梭 口 指示 位 置 
又 以 缺席 选择 显示 FORMATING， 人 
式 化 ， 灯 亮 。 不 久 灯 灭 ， 显 示 : 

INSERT ORIGINAL DISK AND PRESS 
RETURN 又 要 求 插入 源 盘 , 按 回 车 键 。 照 此 办 理 又 显示 ， 
READING， 灯 亮 ， 灯 灭 又 显示 : 

INSERT DUPLICATE DISK AND PRESS 
RETURN 又 要 求 换 插 “ 复 制 盘 ?>， 按 回 车 键 。 这 时 屏幕 
上 显示 : WRITING 

这 类 过 程 得 反复 多 次 ， 即 在 “ 源 盘 ”上 读 一 段 ， 换 盘 ， 
在 “复制 盘 ” 上 写 一 段 。 最 后 显示 : 

DO YOU WISH TO _ MAKE ANOTHER 
COPY? 询问 你 是 否 还 复制 一 个 盘 , 若 键入 Y( 意 即 YEES )， 
表示 要 求 再 复制 一 个 盘 ， 则 重复 上 述 复制 的 全 过 程 ; 若 键入 
N ( 意 即 NO), 则 表示 脱离 复制 操作 ， 又 回 到 提示 符 。 

用 两 个 驱动 器 复制 磁盘 的 方法 . 
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从 上 面 的 操作 看 到 ， 用 一 个 驱动 器 复制 盘 较 麻 烦 ， 用 两 
个 驱动 器 复制 则 方便 得 多 。 
”步骤 :， 
中 其 扩 主 帮 条 人 1 3 区 动 各 : “复制 瘟 本 入 入 号 于 
器 
四 CN ea 
.并 运行 ， 在 屏幕 上 显示 ， 
APPLE DISKETTE DUPLICATIGON PRO- 
GRAM 


ORIGINAL SLOT: |1DEFAULT=6 


若 确认 为 6 号 档 ， 则 按 回 车 ， 又 显示 : 
ORIGINAL SLOT: 


DRIVE : DEFEAULT= 1 


若 确定 为 1 号 驱动 器 ， 则 按 回 车 ， 又 显示 
DRIVE :，1i 


DUPLICATE SLOT: . DEFAULT= 6 


_ 车 确认 也 是 6 号 楷 口 ， 则 按 回 车 键 ， 显 
DUPLICATE SLOT: 6 


DRIVE， DEFAULT= 2 


车“ 复制 盘 ” 已 插入 2 号 驱动 器 ， 则 按 回 车 键 并 显示 ， 
一 一 PRESS RETURN ” KEY TO BEGTN 
COPY 一 一 要 求 按 回 车 键 。 
冉 若是 复制 系统 主 盘 , 则 就 可 执行 复制 了 ， 若 是 复制 别 
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的 “ 源 盘 罗 则 必须 把 “ 源 盘 ” 换 入 1 号 驱动 器 ， 然 后 按 回 车 
键 ， 这 时 屏幕 上 交替 显示 READI NG，FORMATING， 
READING，WRITING 等 ， 最 后 显示 : 

DO YOU WISH TO MAKE ANOTHER CO- 
PY? 询问 你 是 否 再 拷贝 一 个 盘 ， 若 键入 Y ， 则 继续 像 上 述 
执行 复制 ;车 键 入 N ， 则 退出 复制 。 

在 复制 软盘 过 程 中 如 出 现 4 关 关 关 兴 关 关 UN ABLE TO 
READ 关 关 关 关 关 关 ” 则 表示 “ 源 盘 ”已 坏 不 能 复制 。 

2.11.6 DOS 命令 

前 面 82.2 已 经 介绍 了 磁盘 操作 系统 (DOS) 的 引入 及 
版 本 等 内 容 ， 这 一 节 介 绍 它 的 用 途 和 命令 。 所 谓 DOS 实际 
上 是 主机 通过 磁盘 驱动 器 自动 妃 索 磁盘 文件 磁道 、 存 储 和 检 
索 信 息 ， 并 处 理 大 量 其 它 管理 事务 的 程序 。BASIC 将 任何 
对 磁盘 作业 的 要 求 传送 到 DOS， 而 DOS 将 结果 传 回 给 
BASIC。 一 个 新 的 磁盘 局 用 前 ， 必 须 先 做 初始 化 工作 〈 见 


3$2.11. 3 ), 这 样 DODS 就 写 在 0，1 和 2 号 磁道 上 了 。 每 次 开 


机 ， 都 要 引入 DOS ， 这 时 ， 才 可 根据 需要 执行 各 种 DOS 
命令 。 

DOS 命令 的 一 般 格 式 是 : 

DOS 命令 “文件 名 ，[Ss]，[Vv]，[Ddj] 

其 中 文件 名 限定 长 度 只 能 是 1 到 30 个 字符 ， 第 一 个 字符 
必须 是 字母 ， 文 件 名 中 不 能 用 逗号 ，CTRL-M 或 RETU- 
RN;， 参数 S 是 指 驱动 器 接口 的 插 槽 号 ， 例 如 S 7 指 择 在 第 
7 号 插 槽 的 驱动 器 , 一 般 驱 动 器 接 于 揪 在 6 号 插 槽 的 插件 上 ， 
DOS 就 在 这 个 插 槽 的 驱动 器 引入 ， 故 用 到 的 DOS 命令 中 这 
个 参数 一 般 就 省 略 掉 了 ， 参数 V 指 的 是 磁盘 的 卷 导 ， 磁 盘 的 ， 
卷 号 为 1 一 254 的 整数 ， 每 个 磁盘 的 卷 号 在 INIT 命令 中 就 
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指定 了 ， 若 是 INIT 命 令 中 没有 指定 卷 号 ， 则 分 配给 磁盘 的 
. 卷 号 为 254， 为 使 用 方便 起 见 ， 常 常 不 指定 卷 号 , 故 这 个 参数 
也 常常 省 略 ， 参 数 D 指 的 是 驱动 器 号 ， 若 只 用 两 个 驱动 器 ， 
- 则 只 有 D1 和 D2。 以 上 DOS 命令 格式 中 可 选项 可 以 任意 次 
序 排列 。 

以 下 介绍 主要 的 DO S 命令 ; 
CATALOG 

这 是 列 出 磁盘 文件 目录 的 命令 ， 一 般 格 式 是 : 

CATALOG fsSsj，LVv]l，[Ddj 
其 中 参数 Ss ，Vv 和 Dd 根 据 需 要 选用 。 根 据 前 面 说 过 的 理 
由 ， 一 般 选 用 参数 Dd 就 可 以 了 。 例 如 ， 

CATALOG，D2 
即 为 指定 显示 D 2 驱动 器 中 的 文件 目录 。 
LOAD 

是 装 入 命令 ,一 般 格式 是 : 

LOAD 文件 名 ，[Ss]，[Vv]，[Ddj] 
从 磁盘 读 入 程序 文件 到 主机 内 存 ,命令 后 面 必须 跟着 文件 名 ， 
一 般 后 面 还 可 指定 驱动 器 号 。 例 如 

LOAD HELLO，DI1 
表示 从 1 号 驱动 器 把 HELLO 文件 装 入 主机 。 若 磁盘 中 没 
有 这 个 文件 ， 则 主机 会 发 出 “ 哪 ” 的 一 声 ， 以 示 待 告 ， 并 显 
示 FILE NOT FOVND (没有 找到 文件 ); 若 磁 盘 上 有 这 
个 文件 名 称 ， 但 不 是 一 个 程序 文件 ， 则 也 发 出 “ 哪 ” 声 ， 显 
示 FILR TYPE MISMATCH (文件 类 型 不 对 ) 假如 
一 切 顺利 ， 则 这 个 命令 会 把 主机 内 的 原 有 程序 清除 掉 ， 而 装 
入 这 个 新 文件 。 
RUN 
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N 文件 名 ，[Ss]，LVv]j，[Ddj 


D2 
即 先 从 磁盘 装 入 程序 ABC, 并 立即 运行 , 指定 驱动 器 号 D2 。 
SAVE 

是 存 入 命令 ， 一 般 格 式 是 : 

SAVE 文件 名 ，[Ss]，[Vv]，[Dd] 这 个 命令 把 主 
机 内 程序 保存 到 磁盘 中 ， 作 为 该 程序 的 副本 。 例 如 把 程序 
ABC 存 入 驱动 器 D2 中 磁盘 上 ， 应 键入 : 

SAVE ABC，D2 

~ SAVE 命 令 结束 后 ， 可 以 用 CATALOG 命 令 来 检查 程序 

是 否 已 经 复制 完成 。 
DELETE 

是 删除 命令 ， 一 般 格式 是 : 

DELETE 文 件 名 ，[Ss]，[Vv]，[Pd] 这 个 命令 
把 磁盘 上 指定 的 文件 删除 。 例 如 ; 

DELETE XY，Dl 
表示 把 1 号 驱动 器 磁盘 的 XY 文 件 删除 。 
LOCK 

是 锁定 命令 ， 一 般 格式 是 : 

LOCK 文 件 名 ，[Ss]，[Vv]，[Dd] 这 个 命令 锁定 
磁盘 上 的 文件 。 例 如 : 

LOCK ABC，D2 
文件 锁定 后 ， 对 磁盘 上 的 文件 起 了 保护 作用 ， 这 时 只 能 对 这 
个 文件 执行 LOAD 或 READ ( 见 后 面 介 绍 的 数据 文件 操 
_ 作 )， 而 无 法 执行 SAVE ，DELETE 或 WRITE( 数 据 文 
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件 操作 ), 因而 这 个 文件 不 致 于 被 无 意 冲 掉 ,起 到 了 保护 作用 。 
锁 住 的 文件 在 磁盘 目录 栏 以 关 标 记 。 
UNLOCK 

是 开锁 命令 ， 一 般 格 式 ; 

UNLOCK 文 件 名 ，[Ss]，[Vv]，[Ddj 
例如 : 

UNLOCK ABC，D2 
“用 了 开锁 命令 之 后 ， 又 可 对 文件 进行 SAVE，DELETE， 
WRITE 操作 了 。 磁 盘 目 录 中 关 标 记 消 失 。 
RENAME 

是 改换 磁盘 上 的 文件 名 的 命令 ， 常 用 格式 是 

RENAME 文件 的 旧名 ,文件 的 新 名 ,Dd 用 这 个 命令 时 
必须 注意 ， 因 为 DOS 操作 系统 不 检查 这 个 新 名 字 在 磁盘 
上 是 否 早已 有 了 。 因 此 ， 新 命名 必须 避免 重复 。 不 然 将 得 到 
同名 的 两 个 文件 ， 就 难 办 了 。 
VERIEY 

是 检验 磁盘 上 文件 是 否 完整 的 命令 。 常 用 格式 ; 

VERIFY 文件 名 ，Dd “〈d=1 或 2 ) 
_ 这 个 文件 可 检查 文件 存 到 磁盘 上 去 过 程 中 是 否 正确 ， 所 占 磁 
盘 区 是 否 有 硬 伤 。DOS 3.3 版 本 在 存 喧 文 件 完毕 后 都 自动 执 
行 VERIFY 操 作 。 若 VERLIFY 操 作 后 显示 LI/OERROR， 
说 明 存 储 文件 出 错 ， 应 该 重新 存盘 。 

2.11.7 RENUMBER 程序 

系统 主 盘 上 的 RENUMBER 程序 文件 有 两 个 功能 ; 
变 程 序 行 号 ， 把 两 个 程序 连接 起 来 ， 一 般 用 于 把 原先 存 贮 于 
磁盘 上 的 几 个 程序 根据 需要 连接 起 来 。 

RENUMBER 程序 用 法 ; 
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引入 RENUMBER 文件 
把 系统 盘 插 入 驱动 器 ， 键 入 RUN RENUMBER 命 
令 ， 回 车 ， 则 屏幕 显示 : 


拘 


Btc8c8cbc8c8c8cS8bb88ScRe8c888cSRc8Sse 和 RSc8cSR8Relt 和 
冬 


名 

信 APPLESOFT RENUMBER 久 
名 &x 
& CoPYRIGHT 1978 “APPLE COMPUTER INC 
久 名 


836688888888t 6686888888888888 人 .88 
RENUMBER DEFAULT VALUES) 


& [FIRST 10] 5, INC 10] [,S 0] 5, 所 后 3399] 


MERGE 


、&H PUT PROGRAM ON HOLD- 
&M MERGE TO PROGRAM ON HOLD 


PRESS RETURN ” TO CONTINUE. 


表示 将 进入 RENUMBER 程序 ， 并 说 明 这 个 程序 的 用 法 ， 
最 后 要 求 按 回 车 键 。 按 了 回 车 键 后 ， 屏 幕 显示 ， 


REMUMBER IS INSTALLED AND RERADY 
IF YOU USE "FP' ， “HIMEM: ，OR ' MAXFILES， 


YOGL WILL HRAUE TO RE-RUM RENUMBER 
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说 明 RENUMBER 文 件 已 进入 内 存 可 以 使 用 ， 假 如 今后 操 
作 过 程 中 用 到 了 FP，HIMEM 或 MAXFILES 则 将 把 这 
个 程序 从 内 存 中 冲 掉 。 要 指出 的 是 ,由 于 RENUMBER 程序 
文件 进入 内 存 ， 所 以 这 时 主机 可 用 内 存 已 减少 。 
改变 程序 行 号 的 方法 

改变 行 号 的 格式 为 : 

人 上 起 始 行 导 ，!] 行 号 间隔 

把 RENUMBER 程序 引入 主机 后 ， 即 可 把 需 改变 行 号 
的 程序 引入 主机 ， 例 如 有 如 下 程序 : 


IO FOR II = 1 TO 145 
2Q8 PRINT 工 
3 NEXT II 


若 要 改变 行 号 为 100 行 开始 ”2 行 间隔 , 则 应 该 键入 &F 100， 
1 2 回 车 。 操 作 和 结果 如 下 ; 

D&F100，I2 

ULIST 


1600 FOR IT = 1 TO 15 
1G2 PRINT II 
.104 NEXT I 


把 程序 连接 起 来 的 方法 

主机 内 存 中 有 了 RENUMBER 程序 后 ， 就 能 把 几 个 程 
序 〈 一 般 逐 个 从 磁盘 调 入 ) 连接 起 来 。 方 法 是 键入 命令 & 也 
把 主机 中 现 有 程序 保护 起 来 ， 然 后 从 磁盘 引入 第 一 个 程序 
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( LOAD 文件 名 )， 再 键入 &M 就 可 把 两 个 程序 连接 起 来 。 
例如 在 磁盘 上 有 两 个 文件 A 和 B , 要 把 这 两 个 程序 连接 起 来 ， 
其 中 还 把 一 个 程序 的 行 号 改变 了 ， 以 组 成 完整 的 程序 ， 整 个 
操作 如 下 : 


DELOAD AN,D2 

DLIST 

tD DIM A(15S) 

20 FOR I = 1 TO 15 
SO READ A(I) 。 

40 NEXT I 


[1 
PROGRAM ON HOLD。USE "&M"” TO RECOVER 


ULOAD 避 
DLLIST 


10 DATA 1 5 7 9 

20D DATA 2 46 810 
OO DATA 本 91 人 1 
Da&FtoOooDI1D 

DLLIST 

100 DATA 1 3 5,7，9 
ttoO DATA 2，40:8.10- 
120 DATA 瑟 ， 折 ,912，1 沁 
D&M 


ULIST 


to DIM 人 (15S) 
20 FOR I = 1 TO 1S 
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30 “READ AI) 
40 NEXT I 

100 DATA 1,3,5,7,9 
tl10 DATA 2,4;46,8,10 
t2o DATA SS,6,9.12，1 


2.11.8 顺序 处 理 文件 

APPLE 的 DOS 可 以 提供 两 种 类 型 的 磁盘 文件 ， 即 硕 
排 文 件 及 随机 存 取 文件 。 顺 排 文件 在 存 贮 器 中 按 线性 顺序 排 
列 ， 并 以 其 物理 顺序 存 取 ,， 也 可 称 为 顺序 处 理 文件 ， 而 随机 
存 取 文件 则 在 存 取 时 可 不 考虑 记录 疹 放 的 排列 次 序 。 现 分 别 
介绍 如 下 。 

顺 排 文件 为 文本 (T 王 XT) 文 件 之 一 种 ,用 CATALOG 
命令 显示 文件 目录 时 ， 将 伴随 有 “T ”的 标记 。 建 立 这 类 文 
. 忻 必须 通过 程序 编制 和 运行 才 行 。 成 批 的 数据 或 字符 可 以 按 
- 顺 排 文 件 方式 存储 到 磁盘 上， 方便 今后 调 出 使 用 。 
顺序 处 理 文件 在 磁盘 上 的 存 贮 格式 

顺序 处 理 文件 中 字符 是 用 AS C II 码 来 代表 的 ， 每 个 字 
符 在 文件 中 按 次 序 安 排 ， 没 有 空位 隔 开 ， 每 组 字符 用 回 车 符 
隔 开 《下 图 以 v, 代表 回 车 符 ), 每 个 字符 是 1 个 字 节 ， 每 组 字 
符 为 1 个 字段 ， 结 构图 如 下 : 

顺序 处 理 文本 文件 格式 个 例 图 


”9 [DEFERECEEIGRETTTTT] 
AS CI1 码 国 丁 四 世 13 79[7 引 | 加 加 因 区 加 区 jojojolojoo 


文件 字 节 012345678911l121314151617.418 
一 一 ”… 让 


一 


字段 .0 1 2 - 3 
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在 顺序 处 理 文本 文件 的 存 取 中 就 必须 考虑 到 字 节 和 字段 的 安 
排 。 
在 程序 中 使 用 D O S 命 令 

DOS 命令 除了 由 键盘 输入 外 ， 也 可 以 在 程序 中 使 用 ， 
用 于 处 理 文件 ， 进 行 主机 与 磁盘 交换 信息 。 方法 是 在 程序 中 
放 团 控制 字 ， 有 两 种 方法 : 
PRINT “CTREL-D “DOS 命令 ? 
或 PRINT CHR 和 $ (4); “DOS 命令 ? 
其 中 CTRL-D 指 的 是 同时 按 CTRL 键 和 D 键 ， 得 到 的 字 
符 在 屏幕 上 是 不 显示 的 ， 就 象 空格 一 样 。CTREL-D 的 实际 “ 
结果 是 形成 AS C [II 码 4, 在 程序 中 为 了 使 用 方便 ， 常 常 把 这 
个 控制 字 定义 为 一 个 字符 串 变量 。 例 如 若 要 求 列 磁 盘 文件 目 
录 ， 则 程序 设计 如 下 : 


10 DD 委 =CHR 生 4) : REM CHR 息 5 = 人 CTRL 
20 PRIMNT D 提 CNTALDG,D2， 
3S0 EMHND 


程序 第 10 行 设置 了 控制 字 ， 并 将 CTRL-D 控 制 字 定义 为 

D$ 。 第 20 行 发 出 列 月 录 命令 前 加 上 D$ ,就 代表 了 控制 字 。 

运行 这 个 程序 就 把 2 号 驱动 器 中 磁盘 文件 目录 显示 出 来 。 
程序 中 使 用 其 它 DO S 命令 的 方法 也 类 似 。 

用 程序 控制 打印 机 的 方法 也 与 此 类 似 。 因 一 般 在 操作 中 
已 将 DOS 引入 主机 ， 所 以 PR 共 就 象 是 一 个 DOS 命令 ， 
在 程序 中 也 必须 与 控制 字 联 用 ， 所 以 程序 控制 打印 机 的 格式 
的 

1 有 0 D 介 =CHR 非 (4 :REM CHR 雪 4) =CTRL-D 


1 


20 PRINT 了 息 ; "只 愉 提 1 
3S0 PRIHNT 有 关 资料 
对 PRINT 了 D 莫 :"P 己 R 拉 口 ”" 


以 上 程序 中 ， 第 10 行 建立 控制 字 CTRL-D ， 第 20 行 打开 打 
印 机 , 第 30 行 打印 语句 把 资料 打印 列 出 ， 第 40 行 关闭 打印 机 。 
若 DO S 不 在 主机 内 存 中 , 则 程序 控制 打印 机 的 格式 是 : 


10 PR#1 

20 PRIIMT 有 关 资 料 
S0 PR#0 

斗 0 EMND 


磁盘 监控 命令 

用 程序 在 磁盘 上 建立 文本 文件 或 取 文件 时 ， 在 显示 屏 上 
没有 什么 显示 ， 为 了 能 从 屏幕 上 监督 这 类 操作 ， 可 以 使 用 磁 
盘 监控 命令 MO N 。 它 的 格式 是 : 

MON C ，[，O 
其 中 C .表示 对 磁盘 操作 命令 (如 OPEN,READ 等 ) 的 监控 ; 
I 表 示 对 由 磁盘 输入 (INP UT ) 监 控 ,O 代表 对 输出 (OUT) 
到 磁盘 的 监控 。 这 三 个 参数 可 以 进行 以 下 排列 组 合 方式 ， 若 
MON 命令 没有 参数 ， 命 令 将 不 执行 。 

了 GD MON C 只 对 磁盘 操作 命令 的 监控 ， 
国 MON I 只 对 由 磁盘 输入 的 情形 监控 ; 
转 MON O 只 对 输出 到 磁盘 的 情形 监控 ; 
个 


MON C，[ 监控 磁盘 命令 和 由 磁盘 的 输入 ; 
@MON C,O 监控 磁盘 命令 和 向 磁盘 输出 ; 
@@MON 1，O 监控 由 磁盘 的 给 入 和 向 磁盘 输出 ; 
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回 MON C，I，O ”全 部 监控 
为 了 退出 监控 ， 可 使 用 解除 监控 的 命令 NO MO N ， 类 似 的 
它 也 有 以 上 7 种 对 应 的 用 法 。 

监控 命令 可 作为 键盘 直接 输入 命令 使 用 ， 也 可 以 用 到 程 
序 的 语句 中 去 ， 但 是 在 它 前 面 也 必须 有 控制 字 ， 例 如 ， 

10 PRINT CHR$(4)，x“MON C，I，O0，” 

主机 进入 监控 命令 后 就 一 直 保 持 有 效 , 直 到 执行 NOM - 
ON ,INT,FP 命令 或 CTRL-RESET (强制 复位 ) 才 解 
除 。 
顺序 处 理 文件 用 法 

b 存 取 字 符 的 顺序 处 理 文 件 

a) 建立 字符 串 的 文本 文件 程序 

于 面 这 个 程序 是 用 来 建立 一 个 文本 文件 的 ， 内 存 两 个 字 
符 串 AB C 以 及 123, 各自 占 一 个 字段 。 运 行 这 个 程序 〈 用 监 . 
控 命 令 显 示 ) 就 能 看 到 它 建 立 文本 文件 的 全 过 程 : 先是 打开 
一 个 文件 ， 名 字 是 WOR DS 1， 然 后 准备 写 进 这 个 文件 中 的 
内 容 〈 即 字符 串 A B C 及 123)， 各 占 一 个 字段 ， 最 后 关闭 这 
个 文 件 。 文 件 建 完 后 列 出 磁盘 目录 ， 看 是 知已 增加 了 和 名称 为 
WORDS 1 的 文件 。 程序 及 建文 件 过 程 如 下 : 

1 REM MAKE NORDST1 

20 D 蔬 = CHR 币 (4): REM CTRL-D 

30O PRINT D 训 ;OPEN WORDSd19 

40 PRINT D 蔬 2“NRITTE NORDST 

So PRINT “ABC” 

白 局 悄 RINT 人 本， 


7 PRINT D 蔬 ;CLOSE WORDS19 
1O0 END 


UMQONC ,O 
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DRUN 
OPEN MORDSTL 
WRITE WORDS1 
AREC 


CLOSE WORDS1 


若是 预 先 未 设置 监控 命令 ， 建 文件 过 程 将 不 在 屏幕 上 显 
示 。 存 取 文 件 程序 要 注意 在 程序 中 须 有 控制 字 ， DOS 命令 
(OPEN，WRITE 等 ) 必 须 与 控制 字 联 用 。 

b) 从 文件 中 取 字 符 串 的 程序 

从 文件 中 取 字 符 串 的 程序 先 要 打开 相应 的 数据 文件 ， 给 
二 
控 运 行 结果 如 下 : 


19 REM RETRIEYVE WORDS1 
20 D$ = CHR 币 (4): REM CTRL-~D 
3O PRINT D 币 "DOPEN NORDS1T ” 
-40 PRINT D 蔬 3 "READ NORDSTL” 
SO FOR I= 1 TO 2 
6o INPUT 和 员工 ) 
ZOD NEXT 工 
Bo PRINT D 蔬 "CLOSE NORDsin 
1oo0 END 


DMON CI 


OPFEN WORDS1 
READ 内 DRDS1 


CLOSE WDRDS1 
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以 上 程序 设计 要 点 如 下 ; 必须 知道 存 有 字符 串 的 数据 广 
件 内 字符 捉 安 排 的 格式 ，D O S 命令 必须 与 控制 字 联 用 ; 文 
件 先 打开 ， 后 读 取 ， 最 后 关闭 文件 .CLOS 下 命令 的 后 面 跟 
随 文件 名 表示 这 个 命令 关闭 该 文件 ， 若 CL O S 下 后 面 不 跟 
具体 的 文件 名 ， 即 表示 关闭 所 有 已 打开 的 文件 。 
c) 建立 另 一 种 形式 存 入 字符 串 文 件 的 程序 
即 以 程序 方式 将 字符 串 A B C 与 123 存 入 到 一 个 字段 中 
去 。 程 序 及 监控 运行 情况 如 下 ; 
1 REM MAKE NORDS2 
20 D 和 市 = CHNHR 和 (4)3 REM CTRL~D 
-SO PRINT D 贡 ;3 "OPEN WORDS21 
40 PRINT D 蔬 WRITE NORDSZ2 
号 口 三 RINT ABC 人 2 本 


GO PRINT D 币 "CLOSE NORDPS2" 
OO ENDP 


DMON CI 


DRUN 
DOPFEN NORDS2 
WRITE MORDS2 
ABC 12 

CLOSE MORDS2 


这 个 数据 文件 的 名 字 是 WOR DS 2 。 

d) 按 以 上 格式 存 入 字符 串 的 文件 取出 程序 

针对 上 述 字符 在 文件 中 的 存 赃 格式 ， 取 这 种 字符 虽 的 
程序 与 运行 情况 如 下 : 


10 ,REM RETRIEVE WORDS2 
20 D 蔬 二 CHR 和 (4): REM CTRL-D 


30 PRINT D 币 ; "OPEN WORDS2" 

459 PRINT D 贡 ;READ NORDS2n 

SO INPUT 全 囊 ， 日 市 

6 PRINT D 币 ; "CLOSE NORDS29 
10O0 END 


DMON CI,O 


DRUN 

DOPEN WORDS2 
READ NORDS2 
ABC， 工人 2 
CLOSE NORDS2 


这 时 A $ 代 表 字 符 串 AB C ，B 下 是 字符 串 123; 注意 不 能 用 
以 下 两 个 程序 行 : 

50 INPUT Ag 

60 INPUT B4 
代替 上 述 第 60 行 程序 ， 防 止 运行 出 错 。 

以 上 介绍 了 两 对 存 取 顺 序 处 理 文件 的 例子 。 在 将 数据 存 
入 文件 时 需 注 意 磁 盘 上 是 否 已 有 了 同样 名 称 的 文件 ， 资 料 存 
入 名 称 相 同 的 文件 会 造成 混杂 。 解 决 的 办 法 是 在 建立 新 文件 、 
前 ， 应 先 把 老 文 件 删 掉 。 但 假如 原来 磁盘 上 没有 同样 名 字 的 
文件 ， 执 行 删除 命令 ， 也 会 出 错 的 。 为 了 避免 出 错 ， 可 以 在 
程序 中 先 打 开 这 个 文件 , (打开 不 存在 的 文件 是 不 出 错 的 ), 然 
后 删 去 ， 再 打开 文件 ， 然 后 执行 写 命令 。 程 序 格式 如 下 : 

lt0 D$=CHR4 (4):REM CTRL-D 

20 PRINT D$;eOPEN 文件 名 ?” 

30 PRINT D$;“DELETE 文件 名 ? 

40 PRINT D4;“OPEN 文件 名 ?” 
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50 PRINT D$;WRITE 文件 名 ? 

60 PRINT 有 关 资 料 ， 

70 PRINTD4” CLOSE? 

80 END 
因此 与 前 面 列举 的 两 个 建文 件 的 程序 类 似 的 程序 ， 应 添加 打 
开 一 删除 一 打开 一 写 这 样 的 程序 段 。 

他 存 取 数 据 的 顺序 处 理 文件 

a) 把 一 批 数据 存 入 磁盘 

以 下 程序 把 10 个 数据 顺序 存 入 磁盘 ， 并 监控 了 建文 件 过 


~ 


三 DIM A(1O) 

1 D 币 = ”3 REM CTRL~-3 

20 PRINT 了 囊 ; “DOPEN 户 XT DO” 
SO PRINT D 币 "DELETE EX1L1OS" 
40D PRINT 了 囊 ; “OPEN EXTL1O2" 
SOD PRINT 了 种 WRITE 三 XI 人 
oo FORI= 1 TO 1 

7OD READ 有 (TI) 

BC PRINJT 全 ( 工 


30 NEXT 
1 不 RINT 了 贡 ; “人 LOSE 
tt END 


120 DATA 50,60.70,80,90,100, 110， 
120， 130，140 


UMON CI。O 
DRUN 
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OFEN EXLtO2 
DELETE EX1O2 
吕 FEN 三 X 半 人 
WRITE EX1O2 
SO 


以 上 程序 运行 结果 在 磁盘 上 建立 了 数据 文件 已 X102, 由 于 已 
有 删除 旧 文件 命令 ， 避 免 了 新 旧 资 料 的 混杂 。 
bj) 从 顺序 处 理 文件 中 取 数 据 

针对 已 建 的 数据 文件 ， 设 计 了 如 下 取 数 据 程序 ， 运 行 
即 把 数据 取出 。 程 序 及 监控 运行 过 程 如 下 : 


5 DIM At10) 

10 D 贡 = "2 REM CTRL-D 
20 PRINT D 囊 "OPEN EX102" 
30 PRINT D 币 : "READ EXiO2" 
40 FOR I = 1 TO lo 

so INPUT AI) 

ac NEXT 

TB PRINT D$imELOSE" 

ac FOR TI = 1 TO 10 

590 PRINT AI) ， 

100 NEXT 

44 END 
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DMON CT,O 


RUN 

DREN EX1Oo 

只 三 D EX1T OO 人 

了 5 

人 2 折 届 

了 7 

人 后 局 

了 9 总 

人 癌 癌 

从 

了 人间 

了 可 

人 4 总 。 
CLOSE ， 名 口 7 人 
号 吕 吕 作 1060 
BC 1 2 1 本 人 吉 
于 属 

二 44 口 


程序 中 所 用 INPUT 语句 用 于 读 一 个 字段 ， 各 数据 赋予 语句 
中 各 变量 。 


c ) 文件 名 的 间接 用 法 


为 了 增加 程序 使 用 上 的 灵活 性 ， 所 存 取 的 文件 名 可 使 用 


间接 名 称 。 例 如 下 面 这 个 取 文 件数 据 的 程序 及 监控 运行 结果 ， 


号 DIM At(dOD) 

10 D 和 市 = "1 REM CTRL-D 
2 INPUT “FILE NME=”3F 囊 
35 F 户 RINT DD 贡 “DODPEN7" 向 

3D PRINT D 囊 ;3 “READ” :FF 币 

325 FOR 工 二 1 TOQO 1 

45 TINPRUT 后 5 


F$ 
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号 已 生 EXT 
6D PRINT D 惠 ;: "CLOSE” 


DMON CD 


DRUN 

FILE NAME=EXT1O2 
OPENEX102 
READEX1O02 
325Se 

260 

37 

380 

?29 

3d1Oe 

311O 

32120 

3139 

?3140 
CLOSE 


图 往 顺序 处 理 文件 中 增加 资料 

建立 顺序 处 理 文件 时 ， 以 OPEN 命令 打开 文件 ， 此 时 ， 
文件 读 / 写 定位 指针 将 设 在 文件 的 第 一 
APPEND 命令 则 能 把 文件 打开 ， 并 将 文件 读 / 写 定位 指针 
设 到 文件 最 后 一 个 字符 后 面 一 
命令 打开 一 个 旧 文 件 后 ， 就 能 往 里 面 增加 资料 了 。 例 如 通过 
以 下 程序 建立 了 一 个 数据 文件 ， 名 称 为 EX201( 间 接 名 称 为 


): 


10 D 蔬 = CHR 韦 (4): REM CTRL--D 
20 INPUT "FILE NAME=";F 惠 
SO PRINT D 圳 "OPEN ;FF 市 


个 字符 上 ( 即 零 字 节 )。 


个 字 节 上 。 所 以 用 APPEND 


49 FRINT 卫 囊 1 “DELETE "3 三 各 
SO PRINT D 囊 ; ”OPEN" FF 市 
GO PRINT D 币 3 WRITE" 3 FF 向 
7ZD FOR I = 1 TO 1 

BO PRINT 工 

9 NEXT 

100 PRINT D 蔬 ;CLOSE 


可 通过 以 下 程序 在 已 建立 了 的 原 数 据 文件 之 后 增加 数据 ， 


1D D 和 市 .= CHR 币 (4): REM CTRL--D 
2C INPUT “FTLE NAME= 1 B 和 

3 PRINT D 币 ;APPEND "3 日 圳 

40 PRINT DD 币 ;72NRITET 也 圳 

SC FOR II 一 1 TO 1 

CO FRINT II 水 工 

7O NEXT 

8 PRINT D 贡 ;CLOSE 


DMON C, TI,O 


URUN 

FILE NAME= 上 EX2oO1l 
APFFPENDEX2O1 
WRITEEX2O1 


通过 以 下 程序 ， 可 从 数据 文件 已 X 201 中 取出 两 个 程序 所 存 
入 的 原 存 数据 和 增加 数据 。 


三 DIM AI(2O) 

10O _ INPUT "FILE NAME= ”3;C 币 
20 D 贡 = CHR 和 车 (4)3 REM CTRL-D 
SO 内 RINT D 蔬 "DOPEN" ;CC 圳 

40 PRINT BD 币 ;3 ”READ 3 GC 币 

SO FOR I = 1 TO 2 

oo INPUT ACI) 

7G NEXT 

BO PRINT D 蔬 ;3 "CLOSE " 

50 FOR I = 1 TO 20 

1oOO PRINT 人 (TI)， 

1tO NEXT 


DJUMON CI 0 


DRUN 

FILE NAME=EX2Q1 
DPENEX2O1 
READEX201 


?100 

CLOSE 

1 起 

4 己 和 折 

7 S 9 

1 1 4 

9 16 25S 
6 49 64 
81 100 


图 从 任意 字段 开始 读 写 数据 
命令 ，P OSITION 文 件 名 [，Rp] 

这 个 命令 把 文件 读 / 写 定位 指针 设 在 第 p 个 字段 上 。 若 p= 0， 
” 则 读 、 写 命令 从 现在 字段 开始 ; 若 p= 1， 则 从 下 一 个 字段 开 ， 
始 ;， 若 p= 2， 则 从 距 现 在 字段 的 第 二 个 字段 开始 , 依 此 类 推 。 
但 车 POSITION 命令 所 设 定 字段 中 已 无 数据 , 则 读 时 会 出 
错 。 下 面 的 例子 是 从 已 建立 的 EX201 中 取 一 些 数据 ; 
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io REM PFGSITION FILE 

20 INPUT “FILE_ NAME= ”3 全 贡 

3 D 机 = CHR 和 (4): REM CTRL~-D 
460 PRINT 了 种 3“ OPEN 全 囊 

SO PRINT D 蔬 ;3"PDSITION 7" ;从 囊 ”， 有 全” 
Go PRINT “有 匡 信也” ;从事 


70 INPUT 
80 PRINT DsivPOSITTIONYi 和 布 "Rd 
90 ”PRINT D 志 ;READY 市 


1 NE ， 
it， PRINT BD 币 ;3 "OPEN" ;从 包 
129 PRINT D 蔬 “POSITION 从 记 “Ri 
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130 PRINT D 惠 ; "READ" 3 AN 种 
1460 INPUT Y 

1s5O INPUT z 

160 PRINT D 书 ; "CLOSE" 


UMON CI，,D 


DRUN 

FILE NAME=EX201 
DODPENEX2oOl 
POSITIONEX20G1，R2 
READEX2D1 
POSITIBQNEX201 :Ri 
READEX201 

35 . 
DPENEX2Oi 
POSITIONEX201t Ri 
READEX2D1 

了 ?49 

364 

CLOSE 


由 于 磁盘 操作 中 的 INP UT 命 令 一 方面 把 磁盘 上 的 数据 字段 
读 入 主机 ， 而 又 根据 POSITION 命令 把 文件 定位 指针 推进 
到 所 指定 的 字段 的 开始 ， 所 以 有 以 上 的 运行 结果 。 

@@ 从 任意 字 节 开 始 读 写 数据 
对 顺序 处 理 文件 可 以 从 任意 字 节 开始 读 写 数据 ， 要 注意 

. al 每 个 字符 相当 于 一 个 字 节 , 在 存 取 时 应 该 确切 知道 字 
节 位 置 ; 

b). 第 一 个 字 节 编 号 为 零 ,字符 、 空 格 、 喜 号 和 RETU- 

RN 都 是 字 节 (RETURN 是 一 个 字 节 ); 
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c) 存 数 据 格式 : 

WRITE 文件 名 ，Bb 

读数 据 格式 : 
-READ 文件 名 ，Bb 
其 中 B 为 参数 ， 若 不 指定 B ，B 就 是 零 ， 即 从 文件 中 第 一 个 
字 节 开始 。 以 下 是 一 个 从 上 面 已 建立 的 文件 中 读数 据 的 程序 
以 及 运行 的 例子 : 


tt REM RYTE READ 

2 INPUT ”BYTE NO.='"P 

SOD D 韦 = CHR 和 (4): REM CTRL~D 

40 PRINT D 币 "OPEN EX201,D2” 

SC FRRINT D 币 ;READ EX201 BSP 忆 
gg TINPUT X 

7O INPUT Y 

Bo INPUT 2z 

号 0 PRINT 了 P 币 ; "CLOSE " 


”UMON CI,O 


URUN 

BYTE NO-=27 

口 FEN 三 X2O1 TD2 
从 EAD 有 X2O1 EBD27 
人 1 白 

人 与 

了 

人 LOSE 


第 30 行 置 控 制 字 , 第 40 行 指定 2 号 驱动 器 ， 打 开 文件 正 X201 
《以 上 例子 中 建立 了 这 个 文件 ， 内 存 20 个 数 )， 第 50 行 从 指定 
字 节 p 开 始 读数 据 ，60 一 80 行 读 进 3 个 字段 。p=27 时 ，X = 
16， 立 =25，Z = 36 
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URUN 

BYTE NO. =26 
OPEN EX2D1，D2 
民 芭 AD EX201，R2O 
3REENTER 

TO 

字 人 与 
了 本 和 
CLOSE 


p=26 时 ， 正 好 是 RETUR N 字 节 ， 因 此 读数 不 正常 ， 
是 继续 执行 结束 了 ， 仍 取 到 3 个 字段 的 数据 。 


DRUN 

SYTE NO.=28 
OPEN EX201，D2 
READ EX201,B28 
6 


3 
2 


已 LOSE 


但 还 


p= 28 时 , 是 一 个 字段 的 部 分 字 节 处 开始 ， 第 一 个 字段 只 取得 
部 分 字 节 ， 以 后 又 读 2 个 完整 字段 。 
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@@ 存 取 顺 序 处 理 文件 的 程序 格式 小 结 

a) 把 资料 存 入 顺序 处 理 文件 的 程序 格式 : 

10 D$=CHR 和 $(4):REM CTRL-D 
20 PRINT D$，“OPEN 文件 名 ” 
30 PRINT D$，“DELETE 文件 名 ?” 


40 PRINT D$，“OPEN 文件 名 ?” 

50 PRINT D$，“WRITE 文件 名 ?” 
60 PRINT 资料 

70 PRINT D$，“CLOSE? 

b) 从 顺序 处 理 文件 中 取 资 料 的 程序 格式 : 

10 D$=CHR$(4):REM CTRL-D 
20 PRINT D$，“OPEN 文件 名 ?” 

30 PRINT D$ 书 ，“READ 文件 名 ?” 
40 IJNPUT 资料 

50 ERINT D$， “CLOSE?” 

c) 在 顺序 处 理 文 件 中 增加 资料 的 程序 格式 : 
10 D$=CHR$(4):REM CTRL-D 
20 -PRINT D$ 书 ， “APPEND 文件 名 ?” 
30 PRINT D$$， “WRITE 文件 名 9” 
40 PRINT 资料 

50 PRINT D$， “CLOSE?” 

d) 向 顺序 处 理 文件 的 任意 字段 中 重 写 入 资料 的 程序 格 


10 D$=CHR 和 (4):REM CTRL-D 
20 PRINT D$;， “OPEN 文件 名 ” 
30 PRINT D 书 “POSITION 文件 名 ，Rp” 
40 PRINT D 和 书 ， “WRITE 文件 名 ?” 
50 PRINT 资料 
60 PRINT D$，“CLOSE>” 
程序 中 的 Rp 指 的 是 相对 字段 位 置 。 
e) 从 顺序 处 理 文件 的 任意 字段 开始 读 资料 的 程序 格式 : 
10 D$=CHR$(4):REMCTRL-D 
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20 PRINT D$， “OPEN 文件 名 ? 

30 PRINT D$，“POSITION .文件 名 ,Rp? 

40 PRINT D$， “READ 文件 名 ?” 

50 INPUT 资料 

60 PRINT D 和 $， “CLOSEE?” 

f) 直接 从 指定 字 节 开 始 写 资料 的 格式 

10 D$=CHR$(4):REM CTRL-D 

20 PRINT D$，“OPEN 文件 名 ?” 

30 PRINT D$， “WRITE 文件 名 ，Bb> 

40 PRINT 资料 

50 PRINT D 和 $， “CLOSE? 
程序 中 的 B b 指 的 是 绝对 字 节 位 置 。 

gg) 直接 从 指定 字 节 开始 读 资 料 的 格式 

-10 D$=CHR 和 $(4): REM CTRL-D 

20 PRIN 人 TD$ ， “OPEN 文件 名 ? 

30 PRINT D 有 书 ， “READ 文件 名 ，B b” 

40 INPUT 资料 

50 PRINT D$， “CLOSE? 

2.11.9 随机 存 取 文 件 

顺序 处 理 文件 虽然 可 以 指定 字段 和 字 节 存 取 文件 ， 但 是 
必须 知道 字 节 确切 位 置 ， 存 取 麻 烦 ， 容 易 出 错 。 随 机 存 取 文 
件 就 具有 更 大 的 灵活 性 。 
随机 存 取 文 件 存 贮 格式 

随机 存 取 文 件 由 许多 记录 项 组 成 ， 记 录 编 号 从 零 开始 ， 
每 个 记录 项 事先 已 指定 可 以 存 贮 的 字符 个 数 ， 每 个 记录 能 存 
贮 的 字符 个 数 称 为 记录 的 长 度 。 根 据 实际 问题 的 需要 ， 显 然 
有 的 记录 充满 了 字符 ， 有 的 记录 没有 充满 。 要 求 一 个 随机 存 
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取 文 件 内 的 记录 长 度 相 同 的 日 的 是 便于 从 文件 任何 部 分 很 忆 
找到 信息 。 随 机 存 取 文 件 存 贮 资料 格式 如 下 图 所 示 : 


随机 存 取 文本 文件 格式 个 例 图 

局 蕊 昌国 国 加 区 人 7 
字 | 下 O AN Bi| olw 
和 Tolslele 

ER 
SC 三 05 1 引 o| oo| oo 65|84 13100 人 78| 3o| 6 79|s7 13 
文件 子 季 人 二 02131415 11601749 
记录 字 节 0 1 2 二 7 二， 
和 一 一 一 /一 -一 一 / WE 

字 段 0 0 0 
记 录 0 1 2 3 . 


以 上 图 例 中 有 4 个 记录 ， 每 个 记录 有 1 个 字段 ， 每 个 字段 的 
字 节 数 不 同 ， 因 此 有 的 记录 已 充满 字 节 ， 多 数 记 录 并 没 充满 


字 节 。 


字符 串 随 机 文件 的 存 取 程 序 
@ 下 面 的 例子 在 一 个 指定 记录 内 存 入 几 个 字符 串 ; 


1 REM MAKE MAILER 

了 上 = CHR 币 (4): REM CTRL_D 

3 TNFUT “NAME= 1; N 征 

3 了 TMPUT “PHONE= "3 PP 市 

SITNPUT ”ZIP CODE=，; Z 币 
ERINT D 和 "OFEN MAILER,L2OO9 
2 ERINT D 书 "WRITE MATLER,Rlw 
号 六 FRINT 种 : PRINT F 币 。 PRINT 7 惠 
?PRINT D 币 "CLOSE MAILERY 

1 END 
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第 20 行 赋值 一 个 控制 字 ， 第 30 行 到 50 行 键盘 输入 字符 串 ， 第 
60 行 打开 随机 文件 MAILER， 工 是 记录 字 节 参数 ， 指 定 每 
.个 记录 最 多 容纳 的 字 节 长 度 为 200 个 字符 ， 第 70 行 命令 在 
MAILPER 文 件 的 记录 R1 中 写 入 资料 ; 第 80 行 是 三 个 写 入 
资料 的 语句 ， 最 后 第 90 行 关闭 这 个 随机 文件 。 与 建立 顺序 文 
件 相 比较 ， 只 是 “打开 ”和 “ 写 入 ”语句 的 格式 不 同 ， 其 它 
语句 类 似 。 

运行 这 个 程序 就 能 在 磁盘 上 建立 一 个 下 型 文件 〈 文 本 文 
件 ) 即 一 个 随机 存 取 的 文件 ， 通 过 监控 可 显示 建立 文件 的 情 
况 如 下 ; 

区 UN 

丘 且 人 4 华 =: 三 

天 ON 司 = 王 人口 癌 本 人 忆 

了 CQDE= 口 有 2 全 

中 PEN MATILEER LO 

鸯 民工 T 人 全 全 工 LE 只 ， 尺 二 

全 风 
站 全 区 全 
位 人 全 


(SEE MAILER 


以 下 这 个 程序 可 以 从 上 面 建立 的 随机 文件 的 记录 1 中 取 
出 资料 ， 其 运行 情况 也 同时 列 出 : 


10 REM RETRIEVE MAILER 
20 D = CHR 和 (4) : REM CTRL-D 
SC PRINT D 和 "OPEN MAILER,L200" 
40 PRINT D 韦 ;READ MAILER，,Rd9 
SO INPUT N 市 ,PP 市 。Z 贞 

ao0 PRINT D$i "CLOSE MAILER" 


DMON C, IO 
90 


DRUN 

DFEN MAILER,.L20O 
READ MAILER RTL 
后 

宁 呈 中 全 本 人 


人 人 人 
1 


CLGSE MAILER 


程序 第 20 行 置 控制 字 ， 第 30 行 打开 该 随机 文件 ， 指 定 字 节 长 
度 必 须 与 原来 建文 件 时 指定 的 一 样 ， 不 然 就 会 出 错 ; 第 40 行 
执行 读数 命令 ， 指 定 第 一 个 记录 〈 因 为 资料 是 存在 第 一 个 记 
录 内 的 );* 第 50 行 从 随机 文件 读 取 3 个 字符 串 ， 第 60 行 关闭 文 
件 。 监 控 运 行 把 读数 情况 都 显示 出 来 , 可 以 看 到 凡是 INPUT 
语句 ,也 带 有 问号 标志 ， 然 后 自动 从 随机 文件 中 读 入 字符 串 。 

第 50 行 也 可 以 写 为 3 个 程序 行 ， 运 行 的 结果 也 能 读 出 3 
个 字符 串 : 

50 ffNPUT NI 

52 JINPUT PN$ 

54 _ INPUT 2Z4$ 

色 ) 在 几 个 记录 中 存 取 资 料 

下 面 的 程序 在 指定 的 几 俏 记录 中 存 入 一 批 资料 : 

瑟 衣 EM MAtE F 户 工 LE 

1 INFUT ”FILE NAME=- "SA 囊 

2D 了 D 韦 = CHR 币 《4): REM CTRL-D 

3 PRINT 了 种; DOPEN" ;AN 圳 

母 忆 户 FITNT 囊 下 诺 上 已 本 芭 ” ;会 囊 

号 局。 形 站 工本 了 种 站 OFENY SA 囊 3 LSO" 

6D FOR TIT ms 1 2 TO 1S 

人 事 R 工 于 人 各 和 及 "3 工 

妇 间 RNT CDDE:= 3 

3 NEXT II 
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了 和 PRINT 了 种 熙 WRITE 有事 ，R1 7 
1 人 RINT DO 名 5 ， 
二 妇 忆 民工 乓 T 罗 事 和 CCL. 口 号 反 从 囊 
413 END  ， 
第 10 行 键盘 输入 所 建文 件 名 ， 第 20 行 置 控制 字 ， 第 30 行 打开 
文件 :第 40 行 删除 这 个 文件 ， 这 两 行 所 起 作用 与 以 前 对 顺序 、 
处 理 文件 的 处 理 一样 ， 即 避免 新 建文 件 与 原先 磁盘 上 可 能 存 
在 的 同名 旧 文 件 资料 混淆 而 采取 的 措施 ， 第 50 行 再 打开 这 个 
文件 ， 指 定 记录 长 度 是 30 个 字 节 ;， 第 60 行 进入 循环 ; 第 70 行 
执行 写 入 命令 ， 每 写 入 一 个 记录 都 须 执行 一 次 写 命令 ;第 80 
行 写 入 文件 中 的 资料 ， 第 90 行 循环 终端 语句 ， 第 100 行 执行 
在 第 13 个 记录 中 写 入 字符 串 的 命令 ;第 110 行为 写 入 资料 ; 
第 120 行 关闭 文件 。 
必须 注意 的 几 点 ; 
a) 打开 文件 、 删 除 、 再 打开 的 格式 虽然 可 以 避免 新 旧 文 
件 资料 的 混淆 ， 但 是 若是 要 保持 原 有 文件 中 各 记录 的 资料 不 
变 ， 要 在 别 的 记录 写 入 资料 时 ， 用 这 样 的 格式 就 不 行 了 ， 因 
为 用 了 这 样 的 格式 把 原文 件 中 有 用 的 资料 也 给 删除 了 ， 因 此 
这 时 写 入 资料 的 格式 只 能 用 打开 文件 ， 指定 记录 ， 丰 接 写 入 
b) 指定 记录 长 度 必 须 合适 。 太 小 不 够 用 , 就 会 存 错位 置 ， 
太 大 则 浪费 存 贮 空间 ; 
 e) 每 个 记录 写 入 资料 之 前 都 必须 先 发 出 一 个 写 的 命令 ; 
d) 最 后 一 定 要 关闭 文件 。 
监控 运行 这 个 程序 的 情况 如 下 ， 
RUN 
六 了 工人 人 AME= 人 AAA 
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DFENAAA 
DELETEAAA 
OFENAAA,LSO 
WRITEAAA,R12 
CODE=12 
WRITEAAA,R1 
CODE=13 
WRITEAAA，RT4 
CODE=14 
NRITEAAA,R1S 
CDDE=1 
WRITEAAA，,R1 
DGS 

ELOSEAAA 


下 面 程序 可 从 以 上 建立 的 文件 中 读 出 字符 串 。 


10 “REM RETRIEVE FILE 

20 D$ = CHR 和 (4):， REM CTRL-D 

30 INPUT "FILE NAME=m"; 日 市 

40 ”PRINT D 囊 ;OPEN 有 $ 9 LSO" 

50 FORJIJ= 1I2TO145 ， 

460 ”PRINT D$| "READ" B$ "RS 

70 INPUT Cg 

BO IF LEFT 市 〈C,S) = "DGOS" THEN 
PRINT "RECORD "3”WAS CHA 


NGED” 
530 NEXT 3 
100 ”PRINT 站 韦 ; "CLOSE 耳 
1140 END 


第 40 行 打开 文件 ， 指 定 记录 长 度 为 30， 第 60 行 读 命 令 位 于 循 
环 语 句 之 内 ， 表 明 每 读 取 一 个 记录 的 内 容 必 须 先 执行 一 次 读 
命令 ， 并 指定 记录 号 ; 第 70 行 执行 从 数据 文件 中 读 取 资 料 ; 
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第 80 行 是 比较 检索 ， 假 如 在 这 个 记录 中 字符 串 的 头 三 个 字符 
是 DOS， 则 打印 出 一 个 信息 ;第 100 行 关闭 文件 ， 这 个 程 
序 运 行情 况 如 下 : 


DMON C,I,O 


DRUN 

FILE NAME=AAA 

OPFENAAA ,LSO 

READAAA,R12 

3CODE=12 

READAAA,R1S 

3DOS 

RECORD 13 WAS CHANGED 

READAAA.R14 
、3CODE=14 

READAAA,R15S 

3CODE=15 

CLOSEAAA 


存 取 数 据 随机 文件 的 程序 
人 单个 记录 的 读 写 
存 取 数 据 随 机 文件 程序 格式 与 存 取 字 符 随 机 文件 程序 是 
一 样 的 ， 下 面 是 一 个 简单 的 例子 ， 建 立 的 数据 文件 中 指定 记 
录 长 度 是 200 个 字 节 ， 为 了 以 后 醒目 起 见 ， 把 这 个 字 节 长 度 
， 列 为 数据 文件 名 字 的 一 部 分 ， 因 而 这 个 数据 文件 的 名 字 为 
QAZ:L200， 指 定 资料 存在 第 五 个 记录 之 中 ， 
1 “REM MAKE QZ:L200 
2 DIM 有 (12) 


SO 了 和 = CHR 币 (4)3 REM CTRL-D 
49 FRINT D 书 "DOPEN BAZ:L2O0" 
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SFPRINT D 币 ; "DELETE BAZL2OO" 
如 虽 碌 FRINT 了 D 事 “OPEN 仙人 Z 苇 DO LDODD" 


7 FRINT 也 种 NRITE 和 AZ LDO 有 瑟 ， 
BD FOR TI = TD 12 

3D AI)》 二 工 米 工 

100 PRINT 有 (TI) 

110 NEXT 

2 FRRINT D 市 ;CLOSE 公有 Z 3 Laoonw 


监控 运行 结果 是 ; 


WUMON EC, 8 


DRUN 

OPEN BAZ:L200 
DELETE BAZ:L200 
OPFEN Baz:L200,L200 
WRITE QAZsL200，RS 
1 

人 4 

吕 

16 

25 

6 

49 

白 4 

8i 

100 

1 21 

444 

CLOSE QAz:L200 


从 这 个 随机 文件 中 取 资料 的 程序 和 运行 情况 如 下 ; 


1 REM RETRIEVE 日 AZ LO 
20 DIM A(12) 
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件 名 


9 


3O D 和 = CHR 囊 (4): REM LETRL-D 
40 PRINT D 革 “DODPEN QAZ:L20D，L2OO 


与 口 “FRINT 了 D 币 “READ AZ:L2DD RS 
cq FORI=1 TO 12 

7QO INPUT AI) 

SoD NEXT 

9D PRINT D 币 ; "CLOSE QAZ3SLZDOO 


UMON CO 


已 RUN 

DPFEN 8RAZ3:L2OOLL2OO 
READ QAZ:L2QOO RS 
人 

人 人 

?9 

当 1w 

了 2 呈 号 

人 3 汪 各 

了 49 

人 3 如 胡 

?81 

?100 

全 全 

了 ?了 144 

CLOSE QAZ:L2OO 


@) 多 个 记录 的 读 写 
下 面 的 例子 表示 在 几 个 记录 中 各 自 存 一 批 数据 。 数 据 文 
字 是 EX202: 工 50， 指 定 的 每 个 记录 长 度 是 50 个 字 节 ; 


te REM MAKE 本 
20 DIM 全 (ES 1S) 

XC FORI=3TO SS 

40 FOR JJ = 1 TO 1S 


SO 
<oO 
7 


READ A(I,J) 
NEXT 
NEXT 


SC D 蔬 = CHR 虽 (4)3: REM CTRL~-D 
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100 
于 总 


荆 人口 
13O 
1 4 局 


PRINT D 世 ji "DODPEN EX202:L50,L5D， 
也 21 

FOR TI = SSTOS 
PRINT D 和 3 "NRITE EX202:L50，R" 
各， 

鱼 

FDR J = 1 TO 14S 

PRINT ACT J) 

NEXT 

NEXT 

PRINT D 币 ; "CLOSE 

DATA 1 2,3,4， 5 6 7 8 ,910，11 
2 14，15S 

DATA 2,4:68,lioli2l4y16y18， 
20.22.24.26,28,，30 

DATA SS,69y12y15,18.21，24，27 
QOS SO 3S9，42，45 


-运行 的 结果 ,在 第 三 到 第 五 个 记录 ， 每 个 记录 存 贮 15 个 数据 ， 


第 1104 
据 之 前 ， 


行 写 的 命令 在 循环 语句 之 内 ， 表 明 在 每 个 记录 中 写 数 
先 要 发 出 一 个 写 的 命令 


下 面 这 个 程序 可 从 这 个 数据 文件 中 取出 数据 ， 


REM RETRIEVE 户 X2O2 3 LS 
DIM Bt(S,1S) 

D 市 = CHR 币 (4) :， REM CTRL-~D 
FRINT D 币 ; "OPEN EX2023:LSO,LSOn" 


FOR I = 艺 TO 与 
PRINT D 蔬 ; "READ EX202sLSO,RoyI 


FOR J = + TO 1 
INPUDT BR 人 TD) 
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3 NEXT 
15906 NEXT 
1 FRINT 了 于 ;CLOSE 乓 X2O HL 三 避 ” 


. 要 注意 的 是 ， 在 取 数 据 文 件 时 ， 指 定 记 录 长 度 必 须 与 建文 件 
时 指定 的 一 样 ， READ 命令 必须 在 每 次 从 每 个 记录 读 入 数 
据 之 前 发 出 。 
父 指定 记录 长 度 太 小 出 现 的 问题 
建 随机 数据 文件 时 ， 就 有 一 个 指定 每 个 记录 所 能 容纳 的 
最 多 字 节 容量 问题 ， 太 大 浪费 磁盘 空间 ， 太 小 存 取 数 据 会 出 
背 。 下 面 的 例子 表示 ， 指 定 的 记录 长 度 太 小 ， 存 取 资 料 发 生 
重 和 登 的 情形 。 建 立 数据 文件 的 程序 如 下 ， 


1 愉 EM MKE 下 X2D2 :Li 
415 DIM 合 (5S,15) 

20 FOR TI =STOS 

30 FORJ = 1 TO 15 

49 READ AT J) 


5 名 NEXT 
CNEXT 
8 b 蔬 = CHR 和 (4): REM CTRL-D 


39 PRINT 了 D 蔬 3“ OPEN 到 X2D23S LT S" 
1ODD PRINT 了 玫 币 ;3 ”DELETE 所 XQD2 LT 
ttw PRINT 也 蔬 3 “OPEN X2OZ LT SLS 


120 FOR Is= 吕 TO S 

13C PRINT D 蔬 ;3 "NRITE EX2O2 LITS。R” 
3 工 
和 

t140 FOR J = 1 TD 15 

1S0O PRINT AT J》 

tc NEXT 

147 NEXT 

全 口 ”PRINT 了 志和 CLOSE 于 XO 人 上 二 S 7 

0 DATA 1 2 45507 日 ,9 10 11 
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, 12 1 本 14， 1 

210 DATA 2,4,6,8,.10,12,14，16，18， 
20,22,24,264,28,30 

220 DATA S,6,9,12,15.18,21,24。27 
,30 SS，36，39，42，4S 


第 110 行 指定 记录 长 度 为 15 ,无 法 容纳 实际 往 记 录 中 存 入 15 个 
数据 的 长 度 ， 监 控 运 行情 况 似乎 正常 ， 实 际 上 数据 存放 位 置 
已 混乱 。 

从 这 个 文件 中 取 数 据 的 程序 以 及 监控 运行 的 情况 就 可 以 
证 明 这 一 点 


DREM RETRIEYE 三 X2O2 LTLS 

了 DIM 玉 (S， 1 号 ) 

OO 了 上 = CHR 蔬 (4):。 REM CTRL-D 

4 FRINT 也 蔬 ; "OPEN 三 X2OD2 LITSy，LTLS” 


Sam FOR I=3 TO 本 
60O PRINT 了 D 蔬 3 "READ EXZORSLI1S，R” SI 


7O FORJ = 1 TO 1S 

SO INPUOT BCI J) 

320 NEXT 

1OC NEXT 

110 用 RINT 了 D 囊 SC 日 SE 下 X2O 人 3: LL 芋 号 


记 RUN 

OPEN EX202:LLtS:LtS 
READ EX2023L1LS。R< 
了 

3 了 2 

全 

34 

35 
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3 
READ EX2023:L1iSR4 
32 
了 4 
?6 
3 
?了 1O 
?1 全 
全 六 
?如 
?9 
?12 
宁 1 吕 
?1 
?321 
?24 
?27 
READ EX2023:L1L 5 只 SS 
3 本 
?3 各 
?9 
人 1 之 
号 
但 
321 
了 2 人 4 
人 227 
33 


100 


了 汪汪 
?3 
339 
了 全 忆 
?4 与 


CLOSE 开 X 人 2 人 上 寺 王 


可 见 取 到 的 只 是 混乱 的 结果 。 

曲 指定 记录 、 字 节 读 写 文件 

在 随机 存 取 文件 中 ， 不 但 可 以 读 写 整 个 指定 记录 ， 而 且 
可 以 在 指定 记录 中 ， 从 指定 的 字 节 开始 读 写 资料 。 下 面 这 个 
例子 表示 从 上 面 已 建立 了 的 随机 文件 忆 X 202 :二 50 的 记录 
3 的 编号 为 第 六 个 字 节 起 取 数 据 〈 字 节 编 号 是 从 第 零 号 开始 
的 ， 标 点 符号 和 回 车 也 是 字 节 ), 由 于 在 这 个 记录 中 原先 只 存 
了 15 个 数据 ， 现 在 是 从 第 六 个 字 节 开始 读数 据 ， 故 在 这 个 记 、 
录 中 最 多 只 能 读 到 12 个 数据 。 第 50 行 指明 了 从 忆 X 202 的 第 
三 个 记录 的 第 六 个 字 节 开始 读数 据 。 程 序 及 运行 情况 如 下 : 


10 REM RETRIEVE EX2023:1LSO- 人 2 

20 DIM Bt15) 

30 D 和 = CHR 咎 (4) 5 REM CTRL-D 

40 “PRINT D$j "DOPEN EX202:LS0O,LS50" 


5D PRINT D 蔬 ;READ EX202:LSQO RS， 
白 " 上 

eeo FORJ = 1 TO 12 

7O INPUT BJ) 

BO NEXT 

530 PRINT D 吊 ; "CLOSE EX2023:LL5SG" 


DMON EC,I,9 
DRUN 
101 


DOPEN EX202:LS5O,LSO 
READ EX2D02:L50 RS， Be 
34 


了 1 号 


CLOSE EX202:L5SO 


在 每 个 记录 中 ， 字 节 编 号 从 零 开 始 ，EX 202 : 工 50 文 件 的 
第 三 个 记录 的 第 六 个 字 节 正好 是 4。 
随机 存 取 文 件 小 结 

GD 存 资 料 格式 : 

10 D$ =CHR$(4):REM CTREL-D 

20 PRINT D$:;， “OPEN 文件 和 名，Lj，Dd>” 

30 PRINT D$,“WRITE 文 件 名 ，Rr? 

40 PRINT 资料 

50 PRINT D$;，“CLOS 形 ? 

取 资 料 格式 : 

10 D$=CHR 和 (4):REM CTRL-D 

20 PRINT D$， “OPEN 文件 名 ，Lj，Dd” 

30 PRINT D$;，“READ 文件 名 ，Rr? 

40 [INPUT 资料 

50 PRINT D$: “CLOSE ” 
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其 中 j 是 记录 长 度 ，Dd 是 指定 的 驱动 器 号 ，R r 是 记录 号 。 
要 求 j = 1 一 32767， 包 括 字 符 ， 回 车 符号 等 。 

@ 记录 长 度 设计 要 合适 , 太 大 浪费 磁盘 空间 ， 太 小 则 存 
取 混 乱 。 记 住 在 同一 随机 文件 中 的 每 个 记录 长 度 必 须 相同 ， 
设计 时 应 该 取 所 有 记录 中 计划 要 存 贮 的 最 长 字 节 数 作为 指定 
的 记录 长 度 。 在 设计 取 数 据 文 件 的 程序 时 ， 指 定 的 记录 长 度 
应 该 与 建立 这 个 数据 文件 时 指定 的 记录 长 度 相 同 。 

时 读 写 每 个 记录 时 ,必须 每 次 发 出 RE 正 AD 或 WRITE 
命令 

。 轩 设计 取 随机 文件 的 程序 之 前 , 先 要 清关 知 道 看 贮 的 随 
机 文件 的 具体 格式 ， 特 别 是 在 指定 字 节 存 取 时 更 是 这 样 ， 所 
以 对 于 已 建 的 随机 文件 应 该 有 档案 记载 ， 以 便 以 后 查阅 。 

2.11.10 程序 的 链接 运行 

有 时 为 了 使 几 个 程序 通过 磁盘 能 连贯 自动 运行 或 为 了 节 
省 内 存 把 一 个 大 的 程序 分 成 几 段 分 别 存 入 磁盘 ， 运 行 时 又 可 
连续 运行 ， 这 就 需要 使 用 程序 链接 运行 技术 。 主 要 有 两 种 方 
法 : 
简单 的 链接 运行 

一 个 程序 运行 结束 后 若 要 求 自 动 调 进 和 运行 另 一 个 已 在 
磁盘 上 的 程序 ， 最 简单 的 办 法 是 在 这 个 程序 的 来 尾 加 一 个 
RUN 的 DOs 命令 。 例 如 在 磁盘 上 已 存 有 如 下 程序 (文件 
名 LINK 2 ); 


109 REM PROGRAM LINK 2 

2 DIM Att), Btll) 

SO D 委 = CHR 和 (4):， REM CTRL~D 
， 49 PRINT D$; “OPEN EX1039 

SD PRINT D 蔬 ;READ EX103" 


103 


eco 
7 


FOR I = 1 TO 11 
INPUT 全 (TI) 


8O BI) = A(I) 来 I 


9 

9= 

划 品 
1 
主 2O 
1 
40 


DRUN 
MEAN 


一 。B2 


MEAN 
1.41 


NEXT 

PRINT D 币 "CLOSE" 
PRINT D 币 ; “PR#1 
FOR TI = 1 TO 11 
PRINT A(T) ,Bt(I) 
-NEXT 

PRINT D 韦 : "PR#O" 


现在 主机 中 建立 了 如 下 程序 ， 


REM PROGRAM LINK 工 
DIM 人 (11) 


3O D 蔬 = CHR 和 本 (4): REM LTRL-R 


PRINT D 市 ; "OPEN EX1O31 
PRINT D 惠 ; "DELETE EX10O3" 
PRINT D 和 "DOPEN EX1O03S" 
PRINT D 节 ;"NRITE EX103S" 
FOR T = 1 To li 
READ AI) 

PRINT AI) 

NEXT 

PRINT D 贡 j "CLOSE" 

PRINT D 币 ; "RUN LINK 2" 
DATA 10,20,x30,40,50,60, 70,80 
.90,100:110 


程序 40 70 行 建立 一 个 数据 文件 的 D O S 命令 ， 数 据 文件 
EX103 中 存 有 11 个 数据 ， 第 130 行 是 链接 运行 磁盘 上 LINK 
2 文件 的 D O S 命令 。 只 要 运行 现在 主机 中 的 这 个 程序 ， 就 


会 在 磁盘 上 建立 一 个 T 型 文件 下 X 103, 运行 终了 立即 自动 调 . 


入 磁盘 上 的 文件 LINK 2 ,并 运行 。 即 先 读 进 工 文件 己 X 103 
上 的 数据 ， 然 后 开动 打印 机 (LIN 下 2 程序 的 第 100 行 )， 
打出 11 对 A(T)，B(I) 的 值 ， 最 后 关闭 打印 机 (第 140 行 )， 
运行 的 结果 是 ; 


10 10 
20 40 
30 90 
40 160 
50 250 
60 360 
70 490 
80 640 
90 810 
100 1000 
110 1210 


这 种 程序 链接 运行 的 特点 ， 是 主机 中 的 程序 只 是 发 出 了 
， 调 入 和 运行 指定 的 磁盘 文件 的 命令 。 除 此 之 外 ， 这 两 个 程序 
可 以 没有 丝毫 关系 , 运行 完毕 ， 主 机 中 只 有 后 来 调 入 的 程序 ， 
原先 主机 中 程序 已 被 清除 。 

内 存 相关 的 链接 运行 〈 或 链接 运行 ) 
在 这 种 设计 下 ， 运 行 主机 中 的 程序 即 可 自动 调 入 并 运行 
磁盘 上 指定 的 程序 或 文件 ， 而 主机 程序 中 的 变量 值 仍 保存 下 
来 ， 在 调 入 的 程序 中 继续 发 挥 作 用 。 由 于 链接 运行 中 用 到 了 


105 


应 用 程序 CHAIN ， 所 以 在 做 链接 运行 之 前 ， 需 先 把 系统 盘 
上 的 CHAIN 程 序 转移 到 现在 这 个 磁盘 上 (利用 F ID 程序 
转移 ， 请 参考 2.11 .12) 

链接 运行 方式 常常 应 用 于 当 源 程序 比较 长 ， 一 次 装 不 进 
内 存 时 ， 把 这 个 程序 分 市 成 儿 个 较 短 的 程序 ， 按 照 链接 运行 
设计 ， 通 过 磁盘 使 整个 程序 仍 能 自动 连续 运行 ， 中 间 不 必 有 
”人 工 干预 。 以 下 举 一 个 简单 的 例子 ， 说 明 链 接 运行 的 用 法 。 
假设 有 如 下 程序 ， 


1 
2 
3O 
4 
5 
各 全 
7 
75 
BC 
390 
100 
1 1 
2 
3 局 
14 
1SO 
100 
170 
1 日 避 


REM CHA 
DIM A(1S) 
FOR I = 1 TO 15 


AI) =I/ 2 


PRINT A(T) ， 


NEXT 


PRINT 


D 刘 = CHR 币 (4):。 REM CTRL-D 


忆 RINT 了 D 囊 " 己 R 提 1 


FOR I = 1.TO 10 


B(I)》 = 工 半 了 
PRINT B(I) ， 
NEXT 
PRINT 
FOR I = 1 TO 45 
PRINT AtT) 交工， 
NEXT 
PRINT 
PRINT 了 D 囊 2PR#O" 


假设 认为 这 个 程序 太 长 ， 内 存 装 不 下 ， 则 可 以 分 割 成 两 
个 较 短 的 程序 CHA- 1 和 CHA -2, 先 把 CHA-2 存 入 梯级 ， 
然后 把 C HA -1 键入 主机 ， 通 过 内 存 相关 的 链接 运行 语句 ， 
只 要 运行 C HA -1， 就 会 自动 链接 运行 磁盘 上 的 C H A -2 程 
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完成 全 部 运行 任务 。 设 计 的 C 甩 A-1 程 序 如 下 : 


10 REM CHA-1 

20 DIM A(15) 

30 FOR I = 1 TO45- 
3S5 AT) = TI 7 2 

40 PRINT AI) ， 


so NEXT 

60 PRINT 

100 PRINT CHR 币 (4) "8BLOAD CHAIN 
,AS520， 


LO CALL 2 吕 "CH 人 一人 2 


其 中 程序 第 100 行 和 110 行 是 链接 运行 的 语句 ，C H A -2 则 
为 磁盘 上 已 存在 的 文件 ， 注 意 第 110 行 520 后 面 必须 紧 跟 引 


忌 o 


磁盘 上 预先 已 存 入 的 C HA -2 程序 如 下 ， 


19 只 EM CH 有 一 全 

15S D 和 = CHR 贡 (4): REM CTRL~-D 
17 FRINT D 囊 ;3 " 户 R#1” 

20， FOR TI = 1 TO 10 

3SD BII) 二 工 炒 工 

4 PRINT BTI)》， 


ao FOR TI = 1 TO 1S 
7 PRINT A(I) 站 工 ， 


OO FFRINT 了 有 3“ 户 尺 捍 宫 “ 


这 时 运行 主机 上 的 程序 ， 即 可 得 到 如 下 结果 : 
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5 1 .与 
2 人 .与 好 

也. 与 4 4. 瑟 

与 扎 。 己 扣 

各 .与 7 7.5 

1 4 9 

1 和 6 25 3 

49 折合 有 1 
2 全 4.。 己 

唱 : 12.5 18 
24.。 与 了 人 4 . 王 
写 恕 怕 口 。 与 7 了 2 
84.5 38 11 忆 .与 


显然 这 是 主机 上 的 程序 与 磁盘 上 程序 C HA -2 运行 后 共同 的 
结果 。 

2.11.11 程序 中 编写 入 DO S 命令 时 要 注意 的 细节 

在 程序 中 使 用 D OS 命令 能 使 主机 与 外 部 设备 方便 地 交 
换 信 息 ,， 但 一 定 要 严格 按照 编写 格式 使 用 这 些 命令 才 行 ， 即 
使 标点 符号 对 于 DO S 命令 操作 的 影响 也 是 够 大 的 。 例 如 下 
面 这 个 程序 及 其 运行 结果 : 

1G D 韦 = CHR 市 (4) : REM CTRL-D 

20 FOR TI = 1 TO 41 

30 PRINT IT， 


40 NEXT 
SOD PRINT D 币 “RUN LINK 229 


DRUN 
1 他 
4 与 白 
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7 台 
芋 台 RUN LINK 2 


第 30 行 规定 了 按 标准 格式 输出 ， 逗 号 起 到 了 预 留 显 示 空 白 位 
置 的 作用 ， 结 果 影 响 到 第 50 行 的 连接 运行 命令 ， 使 它 也 变 成 
了 打印 输出 的 对 象 ， 不 能 实现 连接 运行 的 设计 。 若 是 在 程序 
中 加 一 行 4PRINT 就 可 结束 标准 输出 格式 ， 顺 利 执行 姻 
接 运 行 的 命令 。 

2.11.12 FID 程 序 

系统 主 盘 上 有 一 个 二 进 制 类 型 的 程序 文件 ， 称 为 FID ， 
为 管理 磁盘 文件 提供 了 方便 。 由 于 它 是 二 进 制 类 型 的 文件 ， 
从 磁盘 调 入 并 运行 的 命令 是 BRUN 。 键 入 BRUN FID 
命令 后 将 在 屏幕 上 显示 


站 素 素 床 半 中 率 率 于 素来 素 来 束 素 素 半 素来 冰 束 北 阔 冰球 事 率 半 水 于 冰冰 市 事 事 事 素 素 站 
中 APPLE ]5 FILE DEUMUELOPER 中 
率 束 
站 FID MERSION M 册 
昌 站 
中 COPYRIGHT 1929 ARPPRLE COMPUTER INC. 站 
束 站 冰球 弟 半 束 素 阔 半 束 冰 冰冰 来 冰冰 素来 率 素来 事 事 来 素 束 来 素 玉 束 于 素 率 阔 素 水 素 玉 间 


CHOOSE ONE OF THE FOLLONING DOPTIOMNS 


<1》 ”CoPY FILES 
<2》 CATALOG 

《5》 SPACE ON DISK 

<4》 UNLOCK FILES 

<《5》 LOCK FILES 
《6》 ”DELETE FILES 

<7》 ”RESET SLOT & DRIVE 

<e》 WERIFY FILES 
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《< 己 > GUIIT 


WHICH NOULD YOU LIKE 人 


屏幕 提示 9 种 功能 供 选 择 , 只 要 键入 指定 的 数字 就 进入 操作 ， 
9 种 功能 是 ， 
COPY FILES 

用 于 整个 源 盘 和 单个 文件 复制 ， 它 与 主 盘 上 另 一 个 
COPYA 文 件 的 区 别 是 . 

@ COPY FILES 程 序 ， 既 可 用 于 整 片 “ 源 盘 ” 的 
复制 , 也 可 对 单个 文件 复制 ， CO PY A 程 序 只 能 对 整 片 “ 源 
盘 ” 的 复制 ; 

- 国 COPY FILES 程 序 可 以 用 来 复制 单个 数据 文件 


-COPYA 程 序 则 无 能 为 力 ; 


轩 用 COPY FILES 程 序 复制 时 ， 复 制 盘 必 须 预先 
做 格式 化 工作 ;COPY A 程序 用 于 复制 磁盘 时 ， 复 制 盘 不 
需要 预先 格式 化 ， 因 为 复制 中 ， 它 已 自动 做 格式 化 工作 了 。 
8 COPY EILES 程 序 的 用 法 与 COPYA 程 序 类 似 ， 
但 显示 要 求 输入 文件 名 时 ， 有 如 下 几 种 处 理 方法 备 选 ; 

a) 若 键入 某 文 件 名 ,表示 只 复制 具有 该 文件 名 的 文件 

b) 若 键入 = 号 ， 表 示 复 制 整个 “ 源 盘 ” - 

c) 若 键入 =EF ,表示 对 “ 源 盘 ”中 所 有 以 下 F 结尾 的 
文件 复制 ; 

d) 若 键入 N S = , 则 表示 复制 “ 源 盘 ” 中 所 有 以 NS 开 
头 的 文件 ; 

e) 若 键入 =AB = ,表示 对 “ 源 盘 ” 中 所 有 包含 AB 的 
文件 进行 复制 。 
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CATALOG 
列 出 磁盘 文件 目录 。 
SPACE ON DISK 
显示 磁盘 已 占用 多 少 扁 区 ， 还 有 多 少 扇 区 可 用 。 
UNLOCK. FILES 
对 指定 文件 开锁 。 
LOCK FILES 
对 指定 文件 加 锁 。 
DELETE FILES 
删除 指定 文件 。 
RESET SLOT & DRIVE 
取消 当前 省 略 说 明 选 择 的 槽 口 和 驱动 器 号 。 
VERIFY FILES 
检查 指定 文件 占用 的 扇 区 。 
-QUIT 
退出 FID 控 制 
2.11.13 MAXFILES 命令 


DOS 多 许 最 多 同时 使 用 16 个 文件 ，MAXFILES 命 


令 确 定 可 以 使 用 多 少 个 文件 。 主 机 引入 D O SS 时 ， 系 统 已 自 
动 分 配 三 个 磁盘 文件 缓冲 区 ， 规 定 同时 只 能 打开 3 个 文件 ， 
而 使 用 MAXFILEES 语句 就 使 用 户 有 选择 更 多 文件 缓冲 区 
的 手段 。 下 面 是 MAXFIL ES 命令 用 在 程序 中 的 例子 及 其 


运行 情况 


109 .PRINT CHR 惠 〈4) “MAXFITLES 1 
20 D 蔬 = CHR 币 (4): REM CTRL-D 
3 PRINT 了 中 "OPEN EX1L1OTY 

40 PRINT D 蔬 1” READ EX1tDX4 
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SG INFUT 全 2 

ao PRINT D 囊 ; "OPEN EX102" 
70 “PRINT 了 D 蔬 ; "READ EX1021 
SO INPUT 

100 “PRINT D 币 ; "CLOSE" 


DMON CI,9 


DRUN 

MXFILES 工 
OPEN EXtoOl 
愉 EAD EX1LO1 


2 人工 


OPEN EXiO2 
NG BUFFERS AVAILABLE 


BREAK IN 6O 


其 中 第 10 行 规定 只 能 打开 上 个 文件 ， 程 序 设 计 中 却 要 求 打开 
2 个 文件 ， 所 以 运行 出 错 ， 执 行 到 60 行 发 生 * 缓 冲 区 不 够 用 ” 
的 错误 。 

事实 上 ， 对 于 每 个 指定 的 文件 ，M AXTFILES 命令 指 
定 留 出 595 个 字 节 的 存 贮 空间 作为 文件 缓冲 区 ， 指 定 的 文件 
数 少 于 要 求 打开 的 文件 数 ， 当然 就 出 错 。 使 用 MAXFILES 
命令 应 注意 ; 

(1) MAXFILES 命令 可 用 作 直 接 命令 ， 格 式 是 : 
MAXFILES nm 
其 中 na 是 指定 文件 数 ， 但 n= 1 一 16。 

MAXFILES 用 在 程序 中 必须 与 控制 字 一 起 使 用 。 

(2) 打开 文件 以 后 又 CL OS E, 则 表示 已 退出 这 个 文件 
缓冲 区 ， 所 以 若 上 例 程序 中 增加 程序 行 5 PRINT D$4， 
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“CLOS 下 ” 则 运行 不 会 出 错 。 

(3) MAXFILES 用 作 直 接 命令 时 ， 必 须 在 引入 程序 
.之 前 执行 ,否则 有 可 能 破坏 数据 信息 , 造成 运行 混乱 ; M AX- 
FI 屯 S 用 于 程序 中 时 ， 也 必须 放 在 程序 的 首 行 ， 避 免 运行 
混乱 。 

(4) 由 于 使 用 MAXEFILES 命令 指定 可 以 打开 的 文件 
个 数 ， 实 质 上 也 就 是 要 求 预 留 多 少 缓冲 区 ， 预 留 多 少 内 存 ， 
所 以 应 在 设计 程序 时 ， 考 虑 各 方面 对 内 存 要 求 的 平衡 。 使 用 
MAXFILES 命令 要 求 同 时 打开 的 文件 数量 时 ， 应 充分 注 
， 是。 

2.11.14 下 XEC 命 令 

DOS 的 下 XEC 命令 是 运行 的 命令 ， 但 与 R UN 命令 
不 同 之 处 在 于 :下 XEC 命令 运行 的 已 在 磁盘 上 的 顺序 文本 
文件 ， 这 个 文件 必须 由 B AS 1C 命令 和 语句 组 成 。 也 就 是 运 
行 下 XEC 命 令 时 ，APPLE 开 的 控制 权 转 入 文件 内 。 

(1) 正 XEFEC 命令 能 快速 检查 数据 文件 的 内 容 ， 用 法 是 : 

个 全 部 检查 所 用 格式 : 

EXEC 数据 文件 名 

ee 
(MON C ，T， ， 然 后 发 出 正 XEC 命令 。 例 如 我 们 曾 
在 磁盘 上 建立 过 一 ww 
按 如 下 方式 操作 : 


LUMON C,I,O 
UEXEC EX1O2 
DS5O 
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口 1 SS 
Ul40 
他 从 指定 字段 开始 检查 数据 文件 ， 格 式 是 ; 
EXEC 文件 名 ，Rp 
其 中 Rp 指 从 文件 的 第 p + 1 个 字段 开始 执行 命令 ，pP = 0 
表示 从 文件 的 第 1 个 字段 开始 ，p = 1 表示 从 文件 的 第 2 个 
字段 开始 执行 命令 ， 等 等 。 当 然 为 了 屏幕 上 能 看 到 显示 ， 键 
入 以 上 命令 之 前 也 须 先 执行 MON CC，1，O 命 令 。 以 下 就 
是 对 磁盘 数据 文件 已 X 102 指定 字段 执行 正 XEC 命 令 的 情 
况 : 

UEXEC 芭 XtO2R4 

已 呆 避 
菇 二 避 吕 


已 1 名 
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口 寺 二 马 
已 1 .3 已 
1 千 心 


(2) 下 XEC 命令 可 以 从 磁盘 调 进 一 个 包含 有 各 种 命令 
ee 并 自动 执行 。 当 然 在 这 之 前 必须 在 磁盘 上 建立 这 样 

一 个 文件 。 下 面 的 例子 表示 先 在 磁盘 上 建立 了 一 个 文件 . 
We 其 中 包括 三 个 CATALOG 命令 ,一 个 INT 命令 。 
建立 这 个 顺序 处 理 文件 AQPP 的 程序 如 下 ; 


1O REM MAKE T FILE 

20 D$ = CHR 和 (4): REM CTRL~D 
忆 PRINT D 蔬 和 "DOPEN 和 QPP 
40 PRINT D 机 ;DELETE QQRPR" 
So PRINT D 蔬 ;2" OPEN QQPP" 
0 PRINT D 币 ;WRITE QQPP” 
7 FOR I=1 TGS 

BO PRINT "CATALOG" 

5350 NEXT 

1 PRINT "INTY" 

14+90 PRINT D 蔬 "CLOSE 


再 对 文件 AQPP 执行 下 XEC 命令 ， 就 会 看 到 把 当时 磁 盘 
上 的 目录 列 出 三 次 ， 最 后 并 转变 为 整 型 B AS IC 的 提示 符 。 

(3) 匡 XEC 命令 可 以 从 磁盘 上 调 进 一 个 包含 有 若干 程 
序 行 的 文件 ， 接 在 主机 中 已 有 的 文件 之 中 ， 即 通过 磁盘 把 程 
序 连 接 起 来 。 当 然 在 这 之 前 先 要 把 程序 行 在 磁盘 上 建立 成 文 . 
本 文件 形式 。 下 面 这 个 例子 表示 先 把 一 些 程序 行 在 磁盘 上 建 
立 为 文件 形式 ， 


4140 D 币 = CHR 和 上 (4):， REM CTRL-~D 
20 PRINT D 贡 ;OPEN BP" . 
3 PRINT D 币 ; "DELETE QP" 

40 ， PRINT D 币 ; "DOPEN QP"” 
50 PRINT D 惠 ji"WRITE QP? 
aq LIST 100, 160 

70 PRINT D 贡 ; "CLOSE 
100 PRINT "CATALOG" 
1410 PRINT "TITNT" 

120 PRINT "FPY 

13O FOR I=1 TO SS 
140 PRINT "CATALOG" 
1S5D NEXT II 
tec PRINT "INTY" 


程序 中 通过 20 一 70 行 把 程序 行 100 一 160 行 以 顺序 处 理 文件 形 
式 存 入 磁盘 ， 文 件 名 QP ， 程 序 运行 情况 的 监控 记录 是 : 


LURURN 
DRPFEN QRP 
DELETE QP 
OPEN QQP 
WRITE QP 


100 PRINT "CATALOG" 
tt PRINT "INT" 

120 PRINT "FP" 

130 FOR TI= 4 TO 
140 PRINT "CATALOG， 
150 NEXT I 

160 PRINT "INT" 
CLOSE 

CATALOG 

INT 

FP 

CATALDG 

CATALDG 
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CATALOG 
INT 


“对 文件 QP 执行 EXEC 命令 运行 情况 是 ; 


UEXEC QF 
品 
Dlo0 PRINT "CATALOG" 
Dll1o PRINT wTNT 
Dt20 FRINT "FFn 
DlxSO FOR TI = 1 TGS 
DD1 4 PRINT- "CATALOG， 
Di50O NEXT 


Dieo PRINT "ITNTY" 


结果 把 100 一 160 行 程序 引入 主机 ， 假 如 当时 主机 中 还 有 别 的 
程序 ， 这 上段 程序 就 插 到 原 有 程序 中 去 了 。 


YN 2.12 DOS 的 错误 信息 


当 DOS 检测 出 磁盘 系统 方面 的 错误 时 ， 会 发 出 “ 哪 2 的 
一 声 ， 显 示 错 误 类 型 和 内 容 ， 程 序 停 止 执 行 。 可 以 根据 如 下 
方法 区 别 错误 的 类 型 ， 

(1) 我 们 在 8$ 2. 10 介 绍 过 的 APPLESOFT 错误 信息 
前 面 有 一 问号 ， 例 如 ? SYNTAX ERROR (语法 错 ) 

(2) 整 型 BAS IC 错误 信息 前 面 有 三 个 星 号 ， 例 如 闪闪 
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关 SYNTAX ERR (语法 错 )) 

(3) DOS 错误 信息 前 面 没有 符号 ， 例 如 SYNTAX 
ERR OR (语法 错 )。 

以 下 是 DOS 出 错 信息 内 容 ，PEEK (222) = 和 A， 表 
示 在 内 存 222 单 元 处 该 DOS 错误 信息 的 编码 。 
DISK FULL 

磁盘 已 经 满 了 ， 不 能 再 存 信息 ， -上 王 区 (222)=9 
END OF DATA 

文件 中 的 数据 不 够 用 ，PEEK(222)=5。 
FILE LOCKED 

文件 锁 住 了 ， 不 能 再 对 这 个 文件 进行 保存 、 换 名 或 删除 ， 
PEEK (222 )= 
FILE NOT FOUND 

磁盘 中 没有 指定 的 文件 ，PEEK (222 ) = 
FILE TYPE MISMATCH 

所 用 命令 与 文件 类 型 不 匹配 ， 例 如 LOAD ，R UN 和 
SAV 屯 命令 等 只 能 用 于 APPLESOFT 或 整 型 B AS IC 
程序 文件 ，OP EN,READ,WRITE,APPEND,EX- 
_EC 等 命令 只 能 用 于 文本 文件 ,BLOAD,BSAYVE 与 BRUN 
“只 能 用 于 二 进 制 文 件 。 PEEK (222)= 13 
I/O ERROR 

无 法 在 磁盘 上 存 取信 息 ， 原因 可 能 是 没有 放 好 磁盘 ， 可 
“能 磁盘 片 有 损伤 或 驱动 器 故障 ; 有 时 在 一 个 驱动 器 上 存 的 信 
息 在 别 的 驱动 器 上 读 不 出 来 ， 可 在 原先 驱动 器 上 试 试 等 等 。 
LANGUAGE NOT AVAILABLE 

”内 存 或 磁盘 中 没有 所 用 命令 所 要 求 的 语言 ，P 刁 正 长 

(222)= 1。 
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NO BUFFERS AVAILABLE . 

在 内 存 中 所 规定 的 〈 用 MAXFILES 命令 ) 文件 缓冲 
区 不 够 用 。P EREKE (222)=12。 
NOT DIRECT COMMAND 

下 列 命令 不 允许 在 直接 命令 方式 中 使 用 ， 例 如 APPE- 
ND，OPEN，READ，WwWRITE，POSITITION 等 只 能 
在 程序 方式 之 中 。P EEK (222 )= 15。 
PROGRAM TOO LARGE 

调 入 主机 内 存 的 程序 太 大 ， 内 存 不 足 。 PEEK (222) 
一 14。 
RANGE ERROR 

在 DOS 命 令 中 某 个 参数 的 值 超过 了 指定 的 范围 .PEEK 
(222)=2 或 3。 下 面 的 表 摘 要 列 出 D OS 命令 中 某 几 种 参数 
的 允许 范围 : 


范 疼 
参 数 字 母 人 
最 小 值 ”最 大 值 
的 站 和 
字 节  B 0 32767 
顺序 处 理 文件 相对 字段 R 0 32767 
绝对 字段 (EXEC ) R 0 32767 
记录 长 度 [ 1 32767 
随机 存 取 文 件 。 
记录 号 R 0 32767 
MAXFILES n mn 1 16 “ 


SYNTAX 开 上 RROR 

语法 错 ， 指 D O S 命令 中 拼 字 拼 错 ， 标 点 符号 用 错 等 。 
PEFEEK(222)=11]。 
VOLUME MIHISMATCHI 
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DOS 命令 中 指定 磁盘 卷 号 与 已 存 入 磁盘 上 的 卷 号 不 符 。 
PEEK(222) = 了。 
WRITED PROTECTED 

磁盘 已 进行 了 写 入 保护 ， 不 许 写 入 。P EEK (22 ) = 4。 


$ 2.13 图 形 显示 语句 


在 程序 中 利用 下 列 命令 或 语句 ， 就 可 以 控制 图 形 显示 ， 
达到 所 要 求 的 输出 形式 。 
2.13.1 低 分 辩 图 形 显示 (最 大 为 40 行 X 48 列 的 图 形 显 
示 区 ) 
GR 本 
GR 为 进入 低 分 辨 图形 显示 的 命令 或 语句 ， 它 有 两 个 显 
示 区 域 供 选择 ， 分 别称 为 显示 的 第 一 页 和 第 二 页 。 
人 执行 GR 语句 后 , 屏幕 显示 即 进 入 第 一 页 ， 屏 幕 清 成 
全 黑 , 区 域 为 40 x 40 点 阵 ， 屏 幕 底 部 留 出 4 行 正 文 显示 窗口 ; 
@ 执行 GR 语句 后 再 键入 POKE-16302，0 语 句 ， 整 
个 屏幕 全 黑 ， 区 域 为 40X 48 点 阵 。 
COLOR 
COL OR - "语句 规定 了 低 分 辩 率 作 图 的 颜色 ，0<n< 
255, 代 表 了 16 种 颜色 中 的 一 种 ， 当 n>>16 时 ， 有 
数 按 16 取 模 。 
n 值 代表 的 颜色 如 下 : 
0 黑色 4 深 绿 8 褐色 12 绿色 
1 品 红 5 灰色 9 栓 色 13 黄色 
2 深蓝 6 天 蓝 10 灰色 14 湖 蓝 
3 紫色 7 淡 蓝 1 粉红 15 白色 
由 于 系统 执行 了 GR 语句 后 ， 自 动 地 使 COL DR = 0 ， 
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所 以 执行 绘图 语句 前 一 定 先 给 C OL OR 赋值 。 
PLOTI 
格 武 ，PLOT X, 立 

又 ，Y 是 算术 表达 式 ，PLOT X, YY 表示 在 屏幕 坐标 
` (X，Y ) 上 男 一 个 点 。 要 求 0 委 X 委 39，0 科 YY 委 47， 超 过 
此 两 限度 时 ， 将 出 现 出 错 信息 。 
HELIN 

画 水 平 线 语句 格式 ; 

HLIN XI，X， AT Y 
其 中 X,，X 和 YY 都 是 算术 表达 式 ， 以 上 格式 表示 从 屏幕 
(X1，Y ) 点 画 一 条 水 平 线 到 (Xy，Y ) 点 。 
YLIN 

画 垂直 线 语句 格式 

VLIN YI ，Y，AT X 
其 中 Y,，Ys 和 X 都 是 算术 表达 式 ， 以 上 格式 表示 从 屏幕 坐 
标 (X ，Y1 ) 点 画 一 条 垂 线 到 ( X Y， ) 点 。 要 求 ， 0 委 X 委 39， 
0 委 Y 委 47。 
SCRN (X，Y) 

这 是 一 个 函数 ， X 和 Y 是 算术 表达 式 ， 这 个 函数 求 出 屏 
幕 坐标 (X，Y) 上 颜色 的 数码 。 要 求 0 委 X 委 39，0 委 了 委 
47。 ， 
低 分 辨 图 形 的 例子 


1 GR 

2D COLOR= | 土 己 

3 PLOT 12 12 

40 HLIN 1 39 AT 20 
SO VvVLIN 1,47 AT 20 
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这 个 程序 运行 的 结果 在 屏幕 上 的 12 行 和 12 列 处 显示 一 个 点 ， 
20 行 处 一 条 水 平 线 ，20 列 处 一 条 垂直 线 。 

2.13.2 高 分 辩 图 形 显示 〔〈 最 大 为 280 行 X192 列 的 图 形 
显示 区 ) 
HGR 和 HGR2 

GD HGR 

命令 或 语句 HG R 进入 高 分 辨 图 形 第 一 页 ， 图 形 显示 区 
_ 域 为 280x 160 点 阵 ， 屏 幕 底 端 留 出 四 行 作为 正文 显示 区 域 ， 
这 种 显示 需 拥有 内 存 容 量 为 16K 以 上 的 系统 ， 以 便 使 APP- 
LESOFT 能 留 驻 内 存 不 被 破坏 。 
执行 HGR ， 并 键入 POKE -16302，0, 则 进入 全 屏幕 
显示 ， 显 示 区 域 为 230 X 192 点 阵 。 

@ HGR 2 - 

命令 或 语句 HGR 2 进入 高 分 辨 图 形 第 2 页 ， 显 示 区 域 
为 280X 192 点 阵 ， 为 全 屏幕 图 形 显 示 ， 执 行 HGR 2 后 ， 键 
入 POKE -16301, 0, 则 进入 280x 160 点 阵 的 图 形 显示 区 ， 
屏幕 底 端 留 出 4 行 正 文 显示 区 域 。 这 种 显示 需 拥 有 内 存 容 量 
为 24K 以 上 系统 ， 以 便 APPLESOFT 能 同时 留存 内 存 。 
若 想 同时 再 使 用 DOS ， 则 至 少 要 拥有 内 存 36 术 以 上 。 
HCOLOR 

规定 使 用 颜色 的 语句 格式 是 HCOL OR =n，0 委 n 委 7， 
但 实际 上 只 有 6 种 颜色 可 供 选 择 。 编 号 为 : 

0 黑色 1 绿色 2 蓝 色 . 3 白色 

4 黑色 5 紫色 6 红色 7 白色 
HPLOT 

人 HPLOT  X, YY 
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在 屏幕 坐标 (X，Y) 上 画 一 个 点 ; 

国 HPLOT XI、YI TO Xz，Y， 

从 屏幕 坐标 (X1 ,YI1) 开始 画 直线 到 坐标 (Xz2，Ys* )。 
例如 可 从 右上 和 角 到 左下 角 划 出 一 条 对 角 线 : 

全 HPLOT TO Xi，Y， 

从 上 次 执行 的 HPLOT 语句 画 线 或 点 的 终止 坐标 开始 

一 条 直线 到 坐标 CX 二 Ya ); 

外 HPLOT X， YI TO X，Yv TO .… TO 
Xun，Yn 

在 (Xi ,Yi).(Xs,Ys ),…,，(X， Yn) 之 间 画 直线 ; 

加 HPLOT TO Xi ，Y， TO …TO X YY 

从 上 次 执行 的 HPLOT 语句 画 线 或 点 的 终止 坐标 开始 
画 线 到 (Xz ，Yz )， 再 到 其 它 坐 标 ， 直 到 (Xw，Yan)。 

注意 之 点 : 

) 要 求 0 迄 X 委 279，0 委 YY 委 191。 

) 画 线 中 若 坐 标 间隔 符合 |Y。 -Yil= |Xs。 一 Xi |, 则 
画 出 的 是 直线 ， 否 则 带 有 小 的 波折 线 ， 
显示 高 分 辨 图 形 的 例子 

例 1 : 


10 HGR 

20 “HCOLOR= 7 

30 “HPLOT 20,40 

40 HPLOT 0,0 T0 279,191 
50 HPLOT TO 0,SO 


运行 这 个 程序 ， 建 立 了 高 分 辨 图 形 第 一 页 ， 画 出 一 个 小 点 ， 
一 条 长 对 角 线 ， 最 后 画 线 到 坐标 (0,80) 处， 点 、 线 颜色 为 白 
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色 ， 屏 幕 底 端 因 是 正文 显示 区 ， 画 不 出 线条 来 ， 丙 条 直线 在 
右 下 端 是 断 开 的 。 
例 2 : 


10 HSR 
145 POKE  - 16302,0 

20 “HCGLOR= 7 

30 “HPLOT 20,40 

40 ”HPLDT 0,0 TO 279,191 
so HPLOT TO 0,80 


运行 这 个 程序 ， 显 示 结 果 与 上 例 稍 有 不 同 ， 由 于 是 全 屏幕 显 
示 ， 两 条 直线 完全 显示 出 来 。 

2.13.3 下 下 XT 命 令 

执行 TEXT 命令 将 立即 退出 图 形 显示 方式 而 进入 全 屏 . 
幕 文 本 显示 方式 ， 每 行 40 个 字符 ， 共 24 行 ， 提 示 符 移 到 屏幕 
最 后 一 行 ， 且 不 清除 屏幕 上 原 有 的 信息 。 


附录 (一 ) ASCII 玛 
《美国 皋 息 交 换 标 准 代码 ) 


码 ”显示 字 键 


NU 怀 WP 
口 
于 
刀 
他 
1 
己 


(BELL) CTRL-- 司 


pk 
CS 
心 


BACK SPACE) 


(LINE FEED) 


CARRIAGE RETURN) 


FORWARD SPACE) 


CCANCEL LINE) 


CTRL-H 
CTRL 一 工 


:CTRL~ 了 


CTRL-K 
CTRL~L 
CTRL-M 
CTRL-N 
CTRL--O 
CTRL 一 已 
CTRL 一 所 
CTRL-R 
CTRL-~S 
CTRL-T 
CTRL -~U 
CTRL-~UM 
CTRL-W 
CTRL 一 X 
CTRL-Y 
CTRL-- 
ESC 

为 及 


DT ee 


DT 一 


CTRL-SHIFT~iM 


CTRL 一 
六. 饼 . 


SPACE BAR 
! 
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”有 人 人 三 王 、 


NA 


立 了 三 天 H 工 中 必用 马 吕 由 下、 


由 


Se 


刀 丫 马 避 区 玫 自 寺 


胖 口 工 节 厂 天 CN 工 吕 


局 


号 过 R R 
恕 厂 忆 驴 
引 4 下 T 
日 S 员 | 
包 如 WU 
号 二 由 JW 
吕 2 共 兴 
号 9 YY 站 
50 工 
纪 1L [ 
纪 2 半 尘 
9S3S ] - 了 
与 直 A 


注 ， 如 果 可 以 由 监督 系统 或 整数 BAS IC 产生 ， 则 加 入 128 到 AS CHI 码 内 。 


附录 (二 ) APPLESOEFT 
保留 字 及 代表 数字 


代表 数字 | 保 留 字 代表 数字 | 保 留 Sa 保 留 字 
128 | END -| 164 | LOMEM 200 二 
129 FOR 165 ONERR 201 一 
130 NEXT 166 RES UME 202 玉 
131 DATA 167 RECALL 203 / 
132 INPUT 168 STORE 204 人 
133 DEL 169 SPEED= 205 AND 
134 DI M 170 | LET 206 OR 
135 READ 171 | GOTO 207 > 
136 GR 172 | RUN 208 一 
137 下 王 XT 173 | 工 F 209 < 
138 PR 并 174 RESTOR 王 210 SGN 
139 IN 并 175 |& 211 INT 
140 CALL 176 | GOSUB 212 ABS 
141 PLOT 177 RETURN 213 USR 
142 HLIN 178 REM FREE 
143 VLIN STOP SCRN ( 

HGR2 ON PDL 


保 留 字 


155 


160 


注 ， 在 下 面 情 况 下 ，APPLESOFT 辨 认 不 出 TO 为 保留 字 : 
@@ 在 TO 之 前 刚好 是 字符 A; 
国 T 与 O 之 间 有 空白 。 


HGR ， 
HCOLOR = 
HPLOT 
DRAW 
XDRAW 
HTAB 
HOME 
ROT= 
SCALE =- 
SHLOAD 
TRACE 
NOTRACE 
NORMAL 
INVERSE 
FLASH 
COLOR= 
POP 
VTAB 
HLMEM， 


]86 
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附录 (三 ) 


DOS 保留 字 


PEEK 
LEN 
STR$ 
VAL 
ASC 
CHR 
LEFT 机 
RIGHTS4 
MID$ 


DO 命令 在 直接 使 用 时 或 在 程序 中 ， 跟 在 打印 语句 的 


控制 字 后 面 时 ， 也 是 保留 字 ， 有 如 下 这 些 : 
APPEND CHAIN 


INIT POSITION 


SAVE BLOAD CLOSE LOAD READ 
UNLOCK 
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BRUN DELETE LOCK RENAME-: ， 
UERIFY BSAVE EXEC OPEN 
RUN WRITE 
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第 三 章 “MICROSOFT 
BASIC 语言 
84 3.1 CP/M 操 作 系 统 


3.1.1 Z-80 插 件 和 CP/M 系 统 盘 

APPLE 公 司 为 了 使 APPL ET 机 有 更 强大 的 功能 ， 
也 能 使 用 广泛 流行 的 以 Z-80 为 CPU 的 微机 所 适用 的 软件 ， 
设计 了 一 种 Z-80 揪 件 ， 其 中 含有 一 片 Z-80A 微 处 理 机 ， 把 
这 种 插件 插入 APPLEI 的 扩展 插 槽 ， 就 使 APPLE 
机 变 成 了 一 个 双 C P U 的 微机 ， 既 能 由 DO S 系统 控制 ， 也 
能 由 CP/M 系 统 控 制 , 这 将 由 软件 命令 来 选择 6502CPU 操 作 
方式 或 Z-80C P U 操 作 方 式 。 与 Z- 80 揪 件 一 起 提供 的 是 
一 块 CP/M 系 统 盘 , 即 由 Digital Research 公司 所 研制 
的 CP/M-80 磁盘 操作 系统 ,以 及 在 这 个 操作 系统 支持 下 的 
MICROSOFT BASIC 语 言 。 

3.1.2 CEP/M-80 的 版 本 

1973 年 Gary 天 ildal1 首 先 研 制 出 CP /7M 操 作 系 统 , 即 
控制 /监督 系统 (CControl Program/Monitcor),1981 年 得 到 
了 很 大 的 发 展 , 成 为 微型 计算 机 中 应 用 非常 广泛 的 操作 系统 ， 
为 了 适应 各 种 情况 的 需要 ， 发 展 出 了 多 种 版 本 。 

C P/VM 版 本 表示 法 :在 小 数 点 左面 的 数字 代表 整体 的 型 
号 区 别 ， 小 数 点 右边 的 数字 代表 同一 型 号 的 修订 版 ， 小 数 点 
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右边 的 第 二 个 数字 代表 版 本 上 的 细微 差别 或 只 与 具体 机 型 有 


关 的 版 本 。C P/7M-802 的 版 本 主要 有 : 
1.3 最 原始 的 CP/7M-80 版 本 ; 
1.4 版 本 1 经 修订 后 的 版 本 ; 

2.0 版 本 2 的 原始 型 ; 
2.1 版 本 2 经 修改 后 的 版 本 ; 
2.2 和 版 本 2 的 最 近 修 订 版 。 


这 是 按 PDigital Recsearch 公 司 对 于 CPV7VM 的 修改 版 号 
分 类 ， 还 有 的 厂商 又 自行 修改 版 本 ， 则 在 右边 第 二 位 小 数 上 ， 


表示 出 来 。 


这 些 操作 系统 版 本 影响 微机 功能 主要 有 如 下 一 些 差别 ， 


分 别 见 表 1 一 3。 


纤 


CTRL-l 
或 行进 入 键 
CTRL-Y 
或 回 车 刍 

CTRL-P 
CTRL-R 
CTRL-S 
CTRL-U 
CTREL-X 

DEL 下马 
或 CTR -加 


羡 汪 浊 站 训 汪 汪 击 
寺 吉 沁 


寺 冲 这 
术 


1 CP7/ZM-80 能 使 用 于 8080，8085 和 Z80 的 CPU ; 


版 本 适用 于 8086 和 8088 型 的 CPU。 


人 


才 立 站 走 才 蚂 


由 
纤 


有 
保留 命令 行 
退 恪 并 出 除 命令 行 
有 有 


还 有 一 种 CP7ZM-86 
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表 3.2 ”新 的 或 修改 的 命令 


命 令 1.3 版 1.4 版 2.2 版 
DIER 有 有 新 的 
每 行 显示 1 个 文件 最 大 每 行 显示 4 个 
名 称 和 类 别 文件 名 称 和 类 别 
E D 有 新 的 新 的 
ERA 有 新 的 新 的 
人 
不 显示 校 验 信号 显示 检验 信 叶 (Y/VN )? 
PIP 有 新 的 新 的 
SAVE 有 有 新 的 
STAT 有 新 的 新 的 
SUBMIT 有 有 新 的 
US ER 无 无 有 
表 3.3 使 用 磁盘 的 不 同 
项 目 1.3 版 1.4 版 2.2 版 
要 放 昌 用 必 罗 2 个 4 个 16 个 
每 个 驱动 器 站 室 阔 之 
最 大 容量 1 兆 字 节 1 兆 字 节 16 净 字 节 
最 大 可 存 广 二 8 本 
存 取 方法 顺序 存 取 顺序 存 取 顺序 存 取 或 
随机 存 取 
磁盘 特性 磁盘 参数 
存 音 元 BDOS 其 BIOS 


由 于 微机 系统 配置 的 不 同 、 在 使 用 C P/M-80 操 作 系 统 
. 时 ， 还 有 多 种 不 同 格式 的 磁盘 ， 因 此 用 到 具体 的 微机 时 ， 必 
须 选 定 相 应 的 磁盘 ， 

-44 天 系统 磁盘 指 的 是 用 于 R A M 为 48K 的 .APPLE 
开 或 APPLEHPLUS 上 的 磁盘 ; 

56K 系统 磁盘 : 指 的 是 带 有 语言 卡 插件 ; 因而 具有 R A M 
为 64 基 的 APPLE HE 或 APPLEIPLUS 系 统 上 用 的 磁 
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”和 拖 ; - 
13 扇 区 磁盘 : 指 的 是 使 用 APPLE DOS 3.2 或 更 早 版 
本 ， 且 无 语言 卡 揪 件 的 微机 上 用 的 磁盘 ; 

”16 扇 区 磁盘 : 指 的 是 使 用 APPLE DOS3.3 或 有 语言 
卡 插件 的 微机 上 用 的 磁盘 ， 除 了 包括 13 扇 区 磁盘 中 所 有 软件 
功能 外 ， 并 且 具 备 高 分 辨 绘图 功能 的 GBA SIC 语言 。 

我 们 在 这 一 章 介绍 的 是 使 用 了 语言 卡 插件 的 AP PL 已 
[PLUS， 并 用 的 是 APPLE CP/M2.? 版 操作 系统 ， 
因而 使 用 16 扇 区 56K 系统 磁盘 。 

3.1.3 CP/M-80 系 统 对 微机 外 设 的 要 求 

CP7/M-80 操 作 系统 要 求 连 接 外 部 设备 的 插件 必须 插 在 
固定 的 插 槽 位置 ， 这 与 APPLE DOS 是 不 同 的 ， 而 与 
APPLE PASCAL 对 外 部 设备 的 要 求 类 似 。 

C P/M-80 系 统 用 字母 及 其 后 的 冒号 代表 各 人 台 磁 盘 驱 动 
器 ， 下 面 所 列举 的 C P/M-80 所 要 求 外 部 设备 连接 插 祠 位 置 
时 ， 对 驱动 器 就 是 这 样 命名 的 。 

下 表 是 APPLE CP/M-80 系 统 下 外 部 设备 必须 连接 
的 择 槽 位 置 ， 


插 槽 编号 外 部 设备 
0 语言 卡 插件 
1 打印 机 、 视 频 终 端 插件 
2 调制 解 调 器 、 光 电 输 入 或 疼 孔 机 播 件 
3 控制 合 输出 插件 或 视频 终端 
4 播 磁盘 驱动 器 插件 、 连 接 正 : 和 下 : 磁盘 机 的 


本 控 、 或 插 Z -80 插 件 
5 播 磁盘 驱动 器 揪 件 连接 C : 和 D : 感 盘 机 控制 器 
6 插 磁 盘 驱动 器 插件 连接 A: 和 B: 磁盘 机 的 控 
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制 器 〈 一 定 要 插入 ) 

7 备用 ,适用 于 所 有 输出 输入 插件 或 插 Z -80 插 件 
正如 上 表 指 出 的 那样 , 在 6 号 捅 槽 至 少 应 装 一 台 磁 盘 驱动 器 ， 
车 还 有 别 的 驱动 器 插件 ， 则 依次 应 插 在 5 号 揪 构 ， 最 后 是 4 
号 揪 模 。 

把 插件 插入 播 槽 的 步骤 : 

(1) 必须 关 掉 电源 : 一 

2) 双手 拿 住 插件 顶端 垂直 揪 入 播 槽 ， 注 意 绝 不 要 揪 错 
方向 ;不 要 用 手 于 污 播 件 的 插脚 ， 以 免 接 触 不 良 ; 插件 搬入 
后 ， 应 前 后 轻 轻 晃动 一 下 ， 以 确保 插件 与 揪 槽 接触 可 靠 。 

(3) 检查 一 遍 无 误 ， 再 开机 。 

3.1.4 建立 56K 的 CP/7M-80 系 统 

如 果 APPLEI 上 已 经 配置 了 语言 卡 插件 ， 则 必须 把 
随 微机 带 来 的 44KC P/M 系统 磁盘 修改 为 56K 的 系统 后 , 才 
能 用 上 扩充 了 的 内 存 ， 方 法 是 : 

(1) 为 了 保存 好 随 微 机 带 来 的 系统 盘 ， 这 项 工作 最 好 在 
复制 的 系统 盘 上 做 ， 复 制 方法 见 后 面 的 介绍 。 

(2) 把 复制 了 的 44 氏 的 C P7M 系 统 盘 插 入 A :驱动 器 ， 
开机 ， 显 示 A> 。 

(3) 键 ACPM56A:， 按 回 车 键 ,微机 即 进 入 转换 操作 ， 
最 终 建成 了 56 氏 的 C P7M 系 统 盘 。 

用 建立 的 56K 的 C P/7M 系 统 盘 引导 主机 , 这 时 就 可 使 用 
语言 插件 16K R AM 中 的 12 开 内 存 .C P7VM 占用 7K RAM; 
CP/M 和 MBASIC 一 起 占 29K RAM;，CP/M 和 GB- 
ASIC (高 分 辩 率 的 绘图 BASIC) 一 起 占用 37K 多 
RAM。 

3.1.5 CP/VM-80 系 统 盘 介绍 
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APPLEIHIPELUS 微机 有 自动 启动 操作 系统 的 功能 ， 
只 要 把 C P/M-80 盘 播 入 A:， 驱动 器 ， 开 机 , 即 进 入 C P /M 
操作 系统 , 提示 符 是 A> 。 只 要 键入 D ITR， 按 RETURN 
键 ， 就 可 见 到 C P/M 系 统 盘 上 的 组 合 程序 目录 ， 如 下 : 


和 


A:， FORMAT COM : COPY CoOM 
As: MBASIC COM :， GBASIC COM 
A， CONFIGIO BAS : PIP COM 
A: STAT COM : ED COM 
A: ASM COM : DDT COM 
ALOAD COM : RWLS COM 
A: APDOS COM :， SUBMIT CoM 
A: XSUB COM : DUMP ASM 
A: DUMP COM :， DONNLOAD COM 
和: CPMSG COHM 


以 下 对 该 目录 先 作 简 单 介绍 ， 对 其 中 其 些 重要 的 程序 以 后 再 
作 详 细 介绍 。 
(1) FORMAT 是 对 磁盘 执行 格式 化 (初始 化 ) 的 应 
用 程序 。 
(2) MBASIC 即 MICROSOFT BASIC 解释 
程序 。 

(3) CONFIGIO， 用 来 设 定 APPLE CPV/M 的 操 
作 环境 ， 使 与 系统 配置 的 外 设 相配 合 。 

(4) STAT 提供 磁盘 状态 信息 的 应 用 程序 。 

(5) ASM 为 CP/M8080 汇 编程 序 , 用 于 编写 8080 汇 
编 语言 程序 。 

(6) LOAD 用 来 将 扩展 字 为 .HE X 的 磁盘 文件 转换 
为 机 器 可 执行 的 .CO M 文 件 ; 和 人 的 交 
出 转换 成 机 器 代码 。. 
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(7) APDOS 可 将 程序 文件 和 二 进 制 文件 从 APPLE 
DO S 磁盘 转移 到 C P/M 磁盘 上 去 。 

(8) XSUB 它 与 SUBMIT 合 用 ,在 执行 程序 时 ， 
可 随时 从 磁 盘 文件 中 输入 字符 。 

(9) DUMP 人 
示 出 来 。 
、 (10) CPM56， 把 44K 的 CP/M 系 统 磁盘 转变 为 56 区 的 
系统 磁盘 的 应 用 程序 。 

(11) COPY 用 以 复制 CP7M 磁盘 ,或 将 规格 化 的 磁 
盘 制 成 空白 的 C P/M 系 统 磁盘 。 

(12) GBASIC 具有 高 分 辨 绘图 功能 的 BASIC 解 
释 程 序 ， 其 它 功能 与 MBASIC 相同 。 

(13) PIP 用 于 磁盘 之 间 文 件 的 转移 , 或 将 磁盘 文件 转 
移 到 终端 或 打印 机 。 

(14) ED 是 CPZM 系 统 的 文本 编辑 程序 ， 可 以 对 文 
本 缓冲 区 的 内 容 进 行 插入 、 删 除 。 

(15) DDGT 为 C P7M 的 动态 调试 的 程序 ,用 以 检测 、 
修改 8080 汇 编 语 言 的 程序 错误 。 

(16) RWI13 能 用 16 扇 区 C P/M 让 取 13 扇 区 C P/7M 磁 盘 
上 的 文件 , 若 与 PIP 合用 ， 并 有 两 人 台 或 以 上 磁盘 机 ， 可 将 13 
扇 区 磁盘 上 的 文件 转移 到 16 扇 区 的 磁盘 上 。 

(LI7) SUBMIT 能 通过 磁盘 文件 中 的 命令 和 程序 执 
行 操 作 ， 达 到 自动 处 理 目 的 。 

(18) DUMP.ASM 是 DUMP 程 序 的 源 程序 列表 ， 
用 汇编 语言 写成 。 

(19) DOWNLOAD 用 于 两 台 都 是 CP7VZM 的 微机 之 
各 通讯 〈 通 过 有 R- 232 训 和 了 数据 连接 接口 )。 
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过 是 


$ 3.2 磁盘 格式 化 和 复制 


3.2.1 进入 CP/M 系 统 步 又 
由 于 APPLE QU PLUS 微型 机 具有 自动 引导 的 ROM， 
所 以 引导 C P/M 系 统 很 简单 ， 如 下 ; 
(1) 把 CPZM 系 统 盘 插入 A: 驱动 器 。 
(2) 开机 ， 驱 动 器 红 灯 亮 , C P/M 系统 自 动 进入 主机 ， 
屏幕 显示 ; 
APPLE II CPM 
56K VER. 2.20B 
(C) 1980 MICROSOFT 
A> 
其 中 A> 就 是 CP/7M 系 统 的 提示 符 。 若 是 键入 B: 回 车 ， 则 
转 到 B ， 驱 动 器 。 若 是 要 求 控制 打印 机 ， 就 必须 调用 系统 盘 
的 DDT 程 序 ， 先 键入 D DT， 按 回 车 键 ， 则 屏幕 显示 〈 以 
下 为 了 表达 方便 起 见 ， 屏 幕 显 示 用 大 写 表 示 ， 键 盘 输入 用 
《 > 括 起 来 ， 按 回 车 键 用 CR ”表示 )， 
A> DDT CCRy》 
DDT VERS 2.2 
-SSDD2F》 
DD2EFE 3 节 《31 》 
DD30  DD 
这 时 再 按 CTRL-C( 即 同时 按 CTRE 键 和 C 键 ), 则 启动 
了 A: 驱动 器 〈 称 热 引导 ), 回 到 提示 符 A> ,再 按 CTREL- 
P ， 回 车 ， 即 已 连通 打印 机 。 这 时 ， 若 是 要 打印 系统 盘 上 目 
录 ， 可 以 键入 打印 目录 命令 DIR，, 按 回 车 键 ， 就 能 在 打印 机 
上 输出 主 盘 上 所 有 程序 的 目录 。 再 按 CTRL-P 键 ， 脱 离 打 
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印 机 输出 。 

若是 所 用 的 APPLE 革 机 不 具备 自动 导入 功能 ， 则 开 
机 后 ， 先 按 R 忆 S 忆 工 键 ， 再 按 6CTRL-K， 然 后 按 回 车 
键 ， 就 进入 CP 7/M 系 统 了 。 

3.2.2 磁盘 格式 化 

新 的 空白 磁盘 在 使 用 之 前 也 必须 先 做 格式 化 的 工作 ， 有 
如 下 两 种 方法 : 

(1) 用 一 个 驱 动 器 做 格式 化 工作 

-假如 只 有 一 个 驱动 器 ， 则 步 又 是 ; 

@) 键 人 FORMAT 和 A: (需要 注意 的 是 ,CP/M 系 
统 与 D O S 不 同 ， 命 令 与 执行 对 象 之 间 必 须要 有 空格 ， 若 是 
不 留 空格 ， 则 无 法 识别 命令 ), 则 显示 : 

APPLEH CP7M 

16 SECTOR DISK FORMATTER 

(C) 1980 MICROSOFT 

INSERT DISK TO BE FORMATTED IN 
DRIVE A; 

PRESS RETURN TO BEGIN 
即 要 求 把 空白 磁盘 插入 A :, 然 后 按 回 车 键 执行 初始 化 。 按 回 
车 键 后 , 若 确实 是 空白 盘 , 则 显示 FOR MATTING…, 磁 盘 
驱动 器 红 和 灯亮 过 一 会 儿 〈 由 于 磁盘 旋转 稳定 要 求 ， 此 段 
时 间 约 需 30 秒 ), 红 灯 灭 ， 显示 : 

FORMAT COMPLETE 
INSERT CPM SYSTEM DISK IN 
DRIVE A， 
PRESS RETURN 
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表示 格式 化 工作 已 经 完成 ， 要 求 插入 系统 主 盘 ， 按 回 车 键 ， 
以 回 到 A> 。 

假如 要 求 格 式 化 的 盘 并 不 是 新 的 空白 盘 ， 而 是 已 存 有 资 
料 的 旧 盘 ， 执 行 格式 化 将 先 把 旧 盘 上 的 资料 删 去 ， 这 时 当 发 
出 了 FORMAT 命 令 之 后 ， 显 示 屏 显示 ; 

DISK IN DRIVE A:,WILL BE ERASED 
CONTINUE (Y7/N)? 

即 主 机 提醒 使 用 者 :; 再 往 下 执行 就 要 删除 磁盘 上 的 信息 了 ， 
请 再 检查 一 下 ， 若 确 属 需要 删除 内 容 的 磁盘 ， 要 继续 下 去 ， 
则 按 Y 键 。 屏 幕 显 示 FORMATTING … ,驱动 器 红 灯 
亮 ， 过 一 会 儿 ， 红 灯 灭 ， 显 示 

FORMAT COMPLETE 

INSERT CP/M SYSTEM DISK IN DR- 
IVE 和 A， 
PRESS _ RETURN 
即 说 明 格 式 化 已 经 完成 ， 要 求 插入 系统 主 盘 ， 按 回 车 键 ， 以 
回 到 A> 。 
(2) 用 两 个 驱动 器 做 格式 化 工作 

若是 有 两 个 驱动 器 ， 做 格式 化 工作 步骤 : 

人 系统 主 盘 插入 A:， 开 机 ， 进 入 A> ; 

国 键 和 FORMAT， 回 车 ， 则 显示 : 

APPLE T CP/M 

16 SECTOR DISK FORMATTER 

(C) 1980 MICROS OFT 

FORMAT DISK IN WHICH DRIVE? 
表示 已 进入 格式 化 程序 ， 问 要 求 格式 化 的 空 盘 放 在 哪个 驱动 


中 
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昌 若 键入 B : 回 车 则 显示 ， 
INSERT DISK TO BE FORMATTED IN Dr- 


RIVE B: 
PRESS RETURN TO BEGIN 
要 求 把 空白 盘 插入 驱动 器 B :, 并 按 回 车 键 ,， 这 时 又 会 有 两 种 
情况 : 若 确定 是 新 的 空白 盘 ， 则 显示 ; 
FORMATTING.… 
驱动 器 红 灯 亮 ， 不 久 即 完成 格式 化 ， 显 示 询 问 : 
- FORMAT COMPLETE 
FORMAT DISK IN WHICH DRIVE? 
若是 存 有 数据 的 旧 盘 ， 则 是 另 一 种 情况 ， 按 了 回 车 键 ， 显 示 
的 是 ; 
DISK IN DRIVE B:;,WILL BE ERASED 
CONTINUE (Y/N)? 
要 求 重新 考虑 是 否 做 格式 化 工作 , 若 继续 做 , 则 按 Y 键 ,显示 ， 
FORM ATTING… 
驱动 器 红 灯 亮 ， 不 久 即 完成 格式 化 ， 这 时 才 显 示 : 
FORMAT COMPLETE 
FORMAT DISK INWHICH DRIVEY? 
问 下 一 次 做 格式 化 的 盘 放 在 哪个 驱动 器 ， 以 再 做 另 一 磁盘 的 
格式 化 工作 ， 若 是 不 做 了 ， 则 按 回 车 键 ， 又 同 到 A > 。 
CP/M-80 系 统 下 做 了 格式 化 工作 的 磁盘 已 经 可 以 存 贮 
资料 ， 但 是 在 格式 化 磁盘 上 并 未 置 入 CP/M 系统， 因此 不 能 
用 来 引导 主机 , 这 一 点 是 与 APPLE DOS 系统 不 同 的 。 对 
于 CP/M-80 系 统 下 执行 了 格式 化 的 磁盘 必须 再 用 COPY 程 
序 把 CP/7M 系统 由 系统 盘 装 入 ， 才 能 执行 引导 工作 。 
3.2.3 复制 磁 慢 
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(1) 用 一 个 驱动 器 做 复制 工作 步骤 ， 

人 系统 主 盘 插入 A:， 开 机 ， 进 入 A 。 

四 键 ACOPY A:=A: 回 车 则 显示 ; 

APPLE [TH CP/ M 
160SECTOR DISK COPY PROGRAM 
(C) 1980 _ MICROSOFT 

INSERT MASTER DISK AND PRESS R- 
ETURN 
要 求 插入 “ 源 ” 盘 〈 指 要 求 复 制 的 原始 盘 ), 按 回 车 键 。 则 又 
显示 ; 
INSERT SLAVE DISK AND PRESS RE- 
TURN 
要 求 插入 空白 盘 〈 已 格式 化 的 ), 并 按 回 车 键 ， 则 又 显示 : 

INSERT MASTER DISK AND PRESS 
RETURN 
又 要 求 插入 “ 源 ” 盘 ， 按 回 车 键 。 等 等 ， 如 此 重复 多 遍 ， 最 
后 完成 显示 : 

COPY COMPLETE 

DO YOU WISH TO MAKE ANOTHER C- 
OPY? 
表示 复制 完成 ， 若 还 复制 ， 按 Y 键 ， 否则 按 N 键 ， 显 示 : 

INSERT CP/M SYSTEM DISK INTO DRIVE 
A: 

HIT RETURN 
要 求 插入 CP/M 盘 ， 回 车 ， 以 回 到 A 》 


1) 若 用 13 扇 区 磁盘 ， 则 此 处 为 13。 
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用 一 个 驱动 器 做 复制 工作 需要 反复 插 换 磁 盘 ， 较 麻烦 ， 
有 两 个 驱动 器 做 复制 工作 就 较 方 便 了 。 
(2) 用 二 个 驱动 器 做 复制 工作 步骤 . 
@ 系统 主 盘 插入 A:， 开 机 ， 进 入 A 
@) 键 和 COPY B:=A: 加 车 则 显示 : 
APPLE T CP7M 
16 SECTOR DISK COPY PROGRAM 
(C) 1980 MICROS OFT 
INSERT MASTER DISK INTO _ DRIVE A: 
INSERT SLAVE DISK INTO DRIVE B: 
PRESS RETURN TO BEGIN 
要 求 把 “ 源 ” 盘 插入 A:, 空白 盘 插入 B : 并 按 回 车 键 ， 这 时 
将 A: 中 内 容 写 入 B:， 显 示 : 
COPYING.… 
最 后 显示 
COPY COMPLETE 
DO YOU WISH TO MAKE ANOTHER 


”COPY? 


表示 复制 完成 ， 若 要 求 继续 复制 另 一 个 磁盘 ， 则 键入 Y， 又 
重复 复制 过 程 ， 否 则 键入 N ， 则 显示 : 

INSERT CP/M SYSTEM DISK INTO 
-DRIVE A; 

HIT RETURN 
要 求 把 CP/ M 系 统 盘 插入 A:， 按 回 车 键 ， 以 回 到 A 》。 可 
以 看 出 ， 双 驱动 器 的 同步 复制 过 程 要 简单 得 多 。 

(3) 灵活 做 法 

也 可 以 先 不 指定 用 凡 个 驱动 器 做 复制 工作 ， 而 在 复制 操 
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作 过 程 中 指定 ， 步 骤 是 : 
@ 把 CP/M 系 统 主 盘 插入 A:， 开 机 ， 进 入 A 》。 
四 键 ACOPY， 回 车 则 显示 

APPLE HH CP/7ZM 
16 SECTOR DISK COPY PROGRAM 
(C) 1980 MICROS OFT 


关 
根据 在 提示 符 头 后面 键入 驱动 器 名 字 ， 可 用 一 个 或 几 个 驱动 
器 做 复制 工作 ， 其 复制 过 程 及 操作 步骤 与 上 面 介 绍 的 复制 方 
法 类 似 ， 不 多 介绍 了 
3.2.4 复制 CP/M 系 统 
上 面 介 绍 格式 化 时 已 指出 ， 格 式 化 后 后 的 磁盘 并 不 包 信 
CP/7M 操 作 系统 ,因而 不 能 用 以 引导 主机 。 以 下 介绍 用 两 个 
磁盘 驱动 器 把 CP/M 操 作 系统 复制 到 这 些 磁盘 上 的 办 法 ， 这 . 
时 对 磁盘 上 的 其 它 文 件 没有 影响 。 复 制 CP/M 系统 的 步骤 
是 : 
) 系统 主 盘 插 入 A:， 开 机 进入 A 。 
键 和 COPY B:=A:/S 车 车 则 显示 ; 
APPLE IJ CP7 M 
16 SECTOR DISK COPY PROGRAM 
(C) 1980 MICROS OFT 
INSERT MASTER DISK INTO DRIVE A; 
INSERT SLAVE DISK INTO DRIVE B: 
PRESS RETURN TO BEGIN . 
要 求 在 A: 插入 CP/M 盘 ， 在 B: 插入 被 复制 盘 , 并 按 回 车 键 。 
照 此 办 理 ， 则 显示 : 
COPYING.… 
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最 后 显示 ; 

COPY COMPL ETEE 

DO YOU WISH TO MAKE ANOTHER 
COPY? 
表示 复制 完成 ， 若 要 复制 另 一 个 磁盘 ， 则 按 Y 键 ， 和 否则 按 N 
键 ， 则 显示 ， 

INSERT CP/M SYSTEM DISK INTO 
DRIVE A: ， 

HIT RETURN 
要 求 把 CP/7M 系 统 盘 播 入 A: 按 回 车 键 ， 回 到 A 》。 

若是 只 用 一 个 驱动 器 ， 也 可 复制 ， 方 法 类 似 前 面 介 绍 过 
的 复制 “ 源 ” 盘 的 方法 。 

3.2.5 错 情 信 息 

做 格式 化 和 复制 操作 时 ， 可 能 会 有 如 下 的 出 错 信息 : 

DISK WRITE PROTECTED 
磁盘 已 采取 保护 措施 ， 不 能 存 信息 ; 

DIST IZO ERROR 驱动 器 也 许 没有 关 好 ， 磁盘 没有 
放 好 或 没有 放 磁 盘 ; 

COMMAND ERROR 命令 写 错 。 


4343.3 键盘 用 法 


3.3.1 一 般 用 法 

在 CP/M 系 统 控制 下 键盘 的 用 法 与 DOS 有 很 多 是 不 同 
的 ， 用 于 程序 编辑 时 更 有 很 大 的 不 同 。 现 将 用 法 介绍 如 下 : 

< 二 为 后 退 键 ， 并 且 删 除 光 标 所 指 该 字符 ; ， 

CTRL-E 屏幕 上 光标 移 到 下 一 行 的 开头 ， 再 按 回 车 
键 ， 下 一 行 的 语句 才 进 入 内 存 ; 
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CTRL-H 作用 与 二 键 相 同 ; 

CTRL-J 中 止 输入 ， 与 回 车 键 作 用 相同 ; 

CTRL-R 重新 显示 屏幕 正 显 示 的 这 一 行 ; 

CTRL-X 光标 退 到 这 一 行 的 开头 , 整 行 字符 全 删 掉 ; 

CTRL-K 左边 的 方 括号 ; 

CTRL-B 向 后 斜 线 (个 ) 

3.3.2 控制 输出 的 键 

CTRL- S 折 时 中 止 屏幕 字符 输出 ， 再 按 下 任何 一 个 键 ， 
又 恢复 输出 ; 

CTRL-P 着 已 用 DDT 程序 使 微机 控制 了 打印 机 ， 则 ， 
以 后 用 到 列 目录 等 命令 时 ， 只 要 再 按 这 两 个 键 ， 再 按 回 车 
键 ， 就 能 在 打印 机 上 输出 ， 中 间 若 再 按 这 两 个 键 ， 又 停止 输 . 
出 。 

3.3.3 冷 引 导 和 热 引导 

每 次 开机 把 CPM 系统 引导 入 主机 的 动作 称 为 冷 引导; 
在 操作 过 程 中 的 某 一 时 刻 , 按键 CTREL-C 也 会 引导 磁盘 上 
的 CP/M 系 统 进入 主机 ， 称 热 引 导 ， 用 这 种 方法 随时 保证 内 
存 中 CP/M 系 统 处 于 工作 状态 而 不 破坏 内 存 中 的 资料 。 当 每 
次 在 驱动 器 上 更 换 磁 盘 时 ， 都 要 求 做 热 引 导 ， 所 以 这 是 要 经 
常用 到 的 操作 。 假 如 在 驱动 器 中 已 换 了 磁盘 ， 而 没有 执行 热 
引导 ， 若 这 时 要 把 资料 存 入 磁盘 就 会 出 错 ， 显 示 

BDOS ERR ON X，DISK R/O 
(X: 是 驱动 器 的 字符 编号 ) 。 表 示 磁 盘 换 入 后 未 键入 CT REL- 
C ， 或 因 防护 标志 使 磁盘 不 能 写 入 。 这 时 只 要 按 回 车 键 ， 则 
也 执行 热 引 导 ， 主 机 回 到 A ，。 

有 些 程序 在 运行 结束 时 ， 自 动 执 行 热 引导 ， 这 时 换 磁 盘 
就 不 必 再 执行 热 引 导 了 。 
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在 CP/M 系 统 控制 下 , 并 有 自动 起 动 功能 时 ， 按 下 CT- 
RL-RESET 键 ， 也 执行 热 引 导 。 


8 3.4 CP/M 的 直接 命令 


3.4.1 CP/M 的 文件 命名 规则 

在 介绍 CP7M 直 接 命令 之 前 ， 要 先 了 解 一 下 CP7VM 的 文 
伞 命 名 规则 。 因 为 CP/7M 系 统 文件 的 命名 规则 与 APPLEE 
DOS 有 所 不 同 。 现 将 主要 规则 介绍 如 下 : 

) 每 个 CP/M 文 件 名 由 两 部 分 组 成 ， 即 文件 名 和 扩展 

名 ， 中 间 用 小 数 点 符号 隔 开 。 文 件 名 必须 大 写 ， 也 可 以 用 数 
字 ， 最 多 只 能 用 8 个 字符 。 扩 展 名 可 以 不 用 ， 最 多 只 能 用 3 
个 字符 ， 扩 展 名 一 般 表 示 这 个 文件 内 部 格式 。 例如 有 如 下 一 
些 CP/7M 文 件 名 : 

FILE. BAS 文件 名 FILE， 扩 展 名 B AS 

86000.COM 文件 名 86000， 扩 展 名 COM 

A-l2. ASM 文件 名 A- 12， 扩 展 名 AS M 
现 举 出 扩展 名 所 代表 的 文件 格式 例子 : 

AS M 表示 用 汇编 语言 写成 的 文件 

ASC 包含 ASCII 字 符 文 件 

BAS 表示 BASIC 语 言 文件 

BAK 表示 备用 文件 

COM 表示 可 以 立即 执行 的 过 渡 文 件 

_DAT 表示 存 贮 资料 的 文件 

FOR 表示 FORTRAN 语言 文件 

(2) 以 下 一 些 字符 不 能 用 在 文件 名 中 ， 

< >,，;:= ? 关 []()/ 或 TAB》 

(3) 不 可 使 用 控制 字符 或 其 它 无 法 在 屏幕 上 显示 的 字符 
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作为 文件 名 。 

3.4.2 成 组 访问 文件 

CP/M 提 供 了 成 组 访问 磁盘 文件 的 功能 ， 可 以 提高 磁盘 
操作 效率 ， 主 要 用 两 种 方法 ， 

(1) 用 符号 关 代 表 文 件 名 或 扩展 名 。 

关 . 关 代表 磁盘 上 所 有 文件 

闪 .COM 代表 磁盘 上 所 有 扩展 名 为 COM 的 文件 

FIL 忆 . 兴 代 表 所 有 名 字 为 FI LE 的 文件 

(2) 用 符号 ? 代表 文件 名 或 扩展 名 中 个 别 字 符 。 例 如 ; 

. A?B. BAS 指 磁盘 上 除 ? 处 字符 不 同 以 外 的 所 有 同名 

文件 

ABC. ??? 表示 所 有 名 字 为 ABC 的 文件 

????.??? 与 尖 . 关 作用 相同 。 

3.4.3 CP/M 的 直接 命令 - 

CP7M 的 直接 命令 也 称 内 部 命令 ， 它 可 在 提示 符 A 之 
下 直接 由 CP7M 执 行 的 命令 ， 而 不 必 再 从 磁盘 上 取出 ， 以 下 
只 介绍 几 种 常用 的 命令 。 
DIR 命令 

是 显示 磁盘 文件 目录 的 命令 。 

DIR 显示 目前 驱动 器 中 文件 目录 ; 

DIR B: 显 示 驱 动 器 B: 中 文件 目录 ; 

DIR ABC.BAS 显 示 文 件 名 为 ABC， 格 式 为 BAS 
的 文件 目录 ; 

DIR B: CDE. 关 显示 驱动 器 B : 中 文件 名 为 CD 瑟 的 
所 有 文件 目录 。 

前 面 已 介绍 过 ,在 引入 CP/M 后 若 执行 了 DDT 连接 打印 
机 命令 ， 则 在 键入 DIR， 并 按 下 CTRL-P， 再 按 回 车 键 ， 
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就 可 以 在 打印 机 上 输出 指定 文件 且 录 。 

了 有 RA 命令 

为 删除 磁盘 文件 的 命令 ， 也 有 多 种 格式 ; 

ERA B: ABC. BAS 删除 驱动 器 B: 中 指定 文件 
名 ; 

ERA DEFG. 关 删除 现 用 驱动 器 中 文件 名 为 DEFG 的 
所 有 文件 
ERA 关 . 关 删除 现 用 驱动 器 中 所 有 文件 ， 此 时 按 下 回 
车 键 后 显示 提问 ; 

ALLCY/N)? 
提示 是 否 要 删除 所 有 的 文件 ， 候 如 坚持 副 去， 则 按 Y 键 及 回 
车 键 。 
REN 命令 

为 重新 命名 磁盘 文件 的 命令 ， 格 式 是 : 

REN 新 文件 名 = 老 文件 名 

文件 名 之 前 也 可 指定 驱动 器 ， 例 如 : 

REN B: ABC.， BAS=DDD. BAS 把 驱动 器 
了 :中 的 DDD.BAS 文件 名 改 为 ABC. BAS, 即 新 文件 名 
列 在 等 号 的 左边 ， 旧 文件 名 列 在 等 号 的 右边 。 
工 立 也 命令 

是 显示 以 AS CII 码 贮 入 的 资料 文件 内 容 的 命令 ， 例 
如 : 

TYPE B:EFG:. BAS 指定 驱动 器 B: ， 把 文件 
EFG. BAS 的 内 容 列 出 。 
直接 命令 的 错误 信息 

人 NO 下 TELE，NOT FOUND 或 FILE NOT 下 - 
OUND 表示 磁盘 上 没有 命令 所 要 求 的 文件 。 
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@ BDOS ERR ON X: 
(X: 代表 驱动 器 名 字 , 如 B : ) 。 表 示 CP/VM 无 法 找到 所 指定 
的 磁盘 或 驱动 器 ， 说 明 磁 盘 装置 有 问题 ， 也 许 是 没 放 磁 盘 ， 
磁盘 没有 放 好 或 磁盘 没 做 过 格式 化 等 。 

BDOS ERR ON X: BAD SECTOR 
表示 磁盘 装置 有 问题 。 键 入 CTRL-C 则 执行 热 引导 。 

BDOS ERR ON X: DISK R/O 

表示 磁盘 装置 有 错 ， 原 因 是 ， 

动 换 了 磁盘 后 没有 执行 热 引 导 ; 

b) 磁盘 是 写 保护 的 。 
这 时 按 动 任何 一 个 键 ， 则 会 热 引导 ， 回 到 A  。 

BDOS FRR ON X: FILE R/O 
表示 指定 的 磁盘 文件 原先 用 STAT 程序 指定 为 只 读 文件 , 不 
能 执行 写 入 命令 。 这 时 若 键入 任 一 字符 ， 则 执行 热 引 导 ， 回 
到 A 。 

BDOS ERR ON X:, SELECT 
不 存在 指定 的 驱动 器 。 这 时 若 键入 任 一 字符 , 则 执行 热 引 导 ， 
回 到 A ，。 

昌 FILE EXISTS 在 执行 REN 命令 时 ， 磁盘 中 已 存 
在 与 指定 新 文件 名 同名 的 文件 。 

$ 3.5 CP/M 的 过 渡 命令 

CP7/M 的 过 渡 命 令 (transient command) 与 直接 命令 
不 同 ， 其 内 容 是 贮存 在 磁盘 上 的 程序 或 命令 〈 文 件 格式 是 
COM ), 执行 前 先 得 从 磁盘 上 引入 ， 再 执行 。 只 是 键盘 输入 
命令 的 方法 与 输入 直接 命令 方法 一 样 ， 即 在 提示 符 A 》 之 后 
键入 命令 即 可 。 命 令 行 最 多 容许 127 个 字 节 。 以 下 介绍 主要 的 
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过 渡 命令 ， 

3.5.1 FORM AT 命令 

为 格式 化 命令 ， 前 面 已 介绍 过 

3.5.2 COPY 命令 

为 复制 整 片 磁 盘 文件 命令 ， 前 面 已 介绍 过 。 

3.5.3 CPM 56 命 令 

转变 44 氏 的 CP/ M 系 统 盘 为 55K 的 CP/ M 系 统 盘 ， 前 面 
已 介绍 过 。 

3.5.4 . STAT 命令 

“<STATI(Statistics) 命 令 主 要 有 两 类 使 用 功能 

(1) 统计 显示 一 个 或 一 组 磁盘 文件 的 情况 ， 用 法 如 下 ， 

GD STAT 《CR ((CR7 代表 回 车 键 ) 

这 个 命令 能 够 把 主机 起 动 以 来 所 用 驱动 器 中 磁盘 的 情况 
显示 出 来 。 例 如 : 

A>STAT (CR 

A:，R/W，SPACE，2K 
表示 驱动 器 A: 中 磁盘 为 读 / 写 磁 盘 ， 还 有 2 天 的 存 贮 空间 可 
供 使 用 《〈 存 贮 空间 的 单位 为 字 节 ， 下 同 )。 
又 例如 

ASTAT CR， 

A，R/W，SPACE，3K 

B，R/O，SPACE，40K 
表示 驱动 器 A: 中 磁盘 为 读 / 写 磁盘 ， 还 有 3 开 的 存 贮 空 间 : 
B:， 中 为 只 读 磁 盘 ， 还 有 40 氏 存 贮 空间 。 

图 STAT X: 《CR》 

显示 驱动 器 X， 中 磁盘 有 用 存 贮 空间 。 例 如 ， 

A>STAT B;《〈CR》 
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BYTHPS REM AINING ON B，nnnK 
表示 在 B: 驱动 器 中 磁盘 还 有 nnn 天 字 节 的 存 贮 空间 。 
图 STAT X: 文件 名 《CR》 
显示 驱动 器 X: 中 磁盘 上 指定 文件 的 大 小 和 属性 。 例 如 : 


ASTAT ABCDE，、ASC 《CRy》 
显示 : 
RECS _ BYTES RPRXT ACGC 
5 3K 1 RAW A，ABCDE，ASC 


BYTPS RPMAINING ON A:， 100K 
表明 文件 ABCDE，ASC 占 有 5 个 记录 (RECS)， 长 度 3K . 
字 节 (BYTPS)， 占 1 个 实际 段落 (EXT， 每 一 个 实际 段 
沙 占 有 16K 字 节 的 磁盘 空间 )， 文 件 存 取 属 人 性 ( ACC ) 为 读 写 
型 。 
又 例如 : 
.AS1TAT P， 关 ，COM(CR》> 


显示 : 
RECS BYTRPS EXT  ACC 
4 -1K 1 RMWwW ADUMP. COM 
52 7K 1 RMW A (ED.COM) 
58 8 民 1 RMW A，PIP COM 
48 6K 1 RMW ASTAT，COM 


10 2 开 1 RAW A: SULUBVIT.COM 
BYTES REM AINTING ON  A，200K 
表 中 列 出 各 文件 所 占 记 录 个 数 、 长 度 ， 所 占 实际 段落 数 ， 指 
明文 件 是 只 读 (R/O) 还 是 读 写 (R/ W)， 最 后 说 明 磁 盘 上 
还 有 200 开 的 存 贮 空间 可 供 使 用 。 其 中 A: (了 上 D.COM) 表 示 
这 个 文件 不 会 册 现 在 目录 中 ,是 SYS 型 文件 (后 面 介 绍 )。 


151 


四 STAT X: 文件 名 书 指定 属性 《CR》 

CP/ M-80 的 2.2 版 指定 文件 两 对 属性 : 

R/ 0 与 R/ W: R/ 0 是 只 读 型 文件 , 只 能 读 入 这 个 文件 ， 
不 能 改变 或 删除 它 ， R/ W 是 读 写 文 件 ， 可 读 、 可 改 、 可 删 。 
平常 的 文件 都 是 R/ 只 型 的 ， 除 非特 别 规定 。 

.SYS 与 DIR，SYS 为 系统 型 文件 ， 这 个 文件 不 出 现 
在 目录 中 ( 即 执行 DIR 命令 后 不 显示 )， 但 可 以 修改 、 删 除 
或 读 出 这 个 文件 ， 只 有 使 用 STAT 关 . 头 命令 才 会 看 到 它 的 
目录 ， DIR 为 可 列 目 录 文件 , 可 以 显示 出 来 ， 一 般 文 件 属于 
这 一 类 。 

文件 属性 可 用 命令 指定 。 例 如 ， 
Ay>STAT QW7Z.、BAS $R/O 《CRy》 

显示 QWZ，BAS SFT TO R/O 
“表示 指定 名 为 QWZ. BAS 的 文件 为 只 读 文件 。 冷 引导 或 热 
引导 不 改变 它 的 只 读 性 质 。 

又 例如 ; 

A>STATX 关 . 关 忆 ROW(CCRY》 
显示 :， QWZL. BAS SET TO RAW 
ABCD， COM SET TO RAW 
表示 指定 文件 都 为 读 / 写 型 文件 。 

又 例如 ; 

.Ay》 9TAT B，EXAMPLE，BAS $ SYS 
《CR》 
显示 :EXAMPLE BAS SET TO SYS 
表示 指定 文件 EXAMPLE. BAS 为 系统 文件 。 这 时 再 用 
DIR 列 目 录 ， 已 看 不 到 这 个 文件 名 字 。 

(2) 统计 外 部 设备 配置 信息 
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这 个 命令 可 以 提供 有 关 CP/ M 所 用 外 部 设备 情况 ， 其 主要 用 
法 如 下 ; 
个 STAT X:=R/O 《CR) 
表示 指定 X: 驱动 器 中 磁盘 为 暂时 的 只 读 状 态 ， 这 时 所 有 的 
磁 缅 文件 都 不 能 修改 或 删除 。 假 如 执行 冷 引 导 或 热 引导 ， 就 
可 解除 只 读 状 态 。 
@ STAT DSK:, 《CRy》 
要 求 显 示 当 前 驱动 器 X:， 中 磁盘 特性 ， 这 时 会 显示 〈X 为 任 
选 的 驱动 器 ， 下 例 中 X 指 定 为 入 驱动 器 ): 


人 >STAT DSK: 


Drive CharacteriSsticSs 
1024: 128 Byte Record Capacity 
41289:. Kitiobyte Drive Capacity 

48: 2 Byte Directory 近 nt 广 夺 已 与 

4 Checked Directory EntrieS 
1269: Records/ Ex+ent 

日 : RECGrdSs/ BRLGOCK 

32: Sectors/ Track 

本 Reserved 下 广 品 CKS 


表 中 依次 列 出 了 ， 磁 盘 共 有 的 记录 总 数 ， 磁 盘 总 容量 〈(K 
BYTP2， 最 多 可 存 贮 48 个 文件 ， 每 个 目录 入 口 至 多 可 以 有 
128 个 记录 ; 文件 定位 时 ， 至 少 要 求 8 个 记录 的 磁盘 空间 ， 每 
个 磁道 分 成 32 个 户 区 ， 有 3 个 磁道 不 能 存 文件 。 本 例 中 48: 
Chcckcd Direclory bntriecs 一 行 ， 由 于 是 用 可 更 换 的 磁 
盘 ， 因 此 与 上 一 行 意义 相同 。 若 系统 配置 硬盘 ， 此 行为 0 。、 

这 些 磁 和 特 性 与 所 用 的 CP/ M 系 统 有 关 。 

人 STAT DPV: 《CRy> 

显示 
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六 呈 AT DEY: 

CON: S CRT: 

RDR: ES 中 TRY 

FIHN SP 己 TP: 

LST: 了 三 PT: 
这 个 命令 把 微机 外 部 设备 配置 情况 显示 出 来 ， 左 边 代表 逻辑 
”装置 , 右边 代表 指定 给 逻辑 装置 的 实际 外 部 设备 。 在 4 人 P7 Ni 
里 ， 有 4 种 逻辑 上 革 置 ， 代 表 微 机 4 种 功能 ， 即 : 

COAN: 接收 命令 ， 显 示 信 息 ， 为 主机 控制 台 功 能 ; 

RDR， 接 收 信 息 ， 读 入 纸 带 功能 ， 

PUN: 输出 信息 ， 纸 带 间 和 孔 功 能 ， 

[3T:， 输 出 、 人 列表 功能 。 
有 12 种 外 部 设备 可 分 别 配 合 实现 这 4 种 功能 ， 即 ; 

TTy: 慢 速 主 控 机 ( 电 传 打字 机 ); 

CRT: 快速 主 控 机 (CRT 显 示 跨 )， 

BA\T: 批量 处 理 器 ; 

U4C1T: 用 户 定义 的 主 控 机 ; 

PTR: 纸 带 读 入 要; 

PTPD: 纸 带 辫 孔 机 ; 

UR1: 用 户 赎 入 机 并 1， 

LR2: 用 户 读 入 机 区 2 

LpP1: 用 户 羡 孔 机 羡 1 ; 

UP2: 用 户 辫 孔 机 节 2 : 

ELPT: 行 打印 届 ; 

Ul.1:， 用 户 列 表 装 置 。 
上 述 4 种 逻辑 装置 与 实际 装置 可 作 相 应 的 配合 ， 例 如 上 面 这 
个 例子 的 情况 表示 : 


接受 命令 和 显示 信息 用 显示 器 
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接受 信息 用 纸 带 读 入 机 ; 

输出 资料 用 纸 带 羡 孔 机 ; 

输出 、 列 表 用 行 式 打印 机 。 
这 种 配置 方式 对 于 指定 的 CHP7 M 和 系统， 出厂 时 已 经 指定 ， 当 
然 亦 可 用 STAT 命 令 改 变 对 应 的 配置 情况 。 

人 STAT iog，= phy:， 《CRy》 
指定 实际 外 部 设备 (ph: ) 至 逻辑 装置 (logs: ) ,以 改变 微机 
外 部 设备 配置 情况 。 在 一 个 命令 行 里 可 以 同时 指定 几 个 外 部 
设备 的 改变 情况 ， 中 间 用 逗号 隔 开 ， 格 式 是 : 

S 了 TAT los: = ph: ，lon: = phy， CR》 

全 STATUSR， CR》 
可 显示 用 户 号 及 正在 操作 的 磁盘 文件 号 ， 例 如 

A>STAT USRs 


Active User 3 0 
Active Filesi O 


表明 当前 用 户 号 码 为 零 ， 目 前 操作 磁盘 上 ， 文 件 用 户 号 码 为 


零 。 
四 STTVAL CR 


可 显示 所 有 设备 分 配 情况 及 ”>T、\T 命 令 使 用 的 情况 ， 例 如 : 


人 >STAT YAL: 
和 
Temp R/ZO Disk: d:=R7O 2 
Set Indicator: d:filename.typ . 事 R/OD 囊 RyW 名 SYS SDIR 
Disk Statts  ! DSK: diDSK - 
User Status  : USR: 
TIobyte Assign: 
CON: = TTY: CRT: EAT: UEl: 
RDR: = TTY: PTR: UR1: UR2， 
PUN: = TTY PTP: UP1: UP2) 
LST: mw TTY: CRT:，LPT: ULis 


”表明 STAT 命 令 用 法 的 简单 提示 。 例 如 指明 键入 STAT 
d: = R/O 可 以 使 4: 驱动 器 中 磁 慢 为 暂时 只 读 型 磁盘 ， 而 键 
入 STAT dpDSsk:, 《CR>，、， 可 以 设 定 4 驱动 器 的 特性 等 
等 。 

3.5.5 PP 命令 

PIP 是 Peripheral lnterchangc_ Prosram 〈 外 转交 换 程 
序 ) 的 缩写 ， 主 要 用 于 文件 的 复制 。 有 两 种 使 用 PlP 命 令 的 
PIP《CR》 
显示 PIP 的 系统 符号 兴 ， 然 后 键入 命令 行 : 

关 Pip 的 命令 行 《CR》 
这 时 就 会 执行 PIP: 命 令 ， 执 行 完 了 又 回 到 提示 符 闪 ， 还 可 键 
入 PIP 的 有 关 命 令 。 所 以 这 种 方式 适用 于 多 次 执行 PIP 命 
令 的 作业 。 若 按 了 CTRI-C 或 回 车 键 ， 则 回 到 A 》。 
PIP 命令 行 《CR， 

这 是 直接 执行 PLP 命 令 的 方式 ， 适 用 于 一 次 性 作业 ， 作 
业 错 误 则 回 到 A > 。 
上 述 两 种 方式 PIP 命 令 的 具体 用 途 是 ; 

(1) 把 文件 复制 到 磁盘 上 

Q@ PIP X， 新 文件 名 = Y， 老 文件 名 [P] 《CRy 即 把 
驱动 器 Y， 磁 盘 上 的 老 文 件 复 制 到 驱动 器 X， 的 磁盘 上 ， 换 
成 新 名 字 ， 使 用 参数 P , ,参数 P 与 文件 名 之 间 不 能 有 空格 。 
例如 ， 

A>bPIP ABCD. BAS= DHPP PASSCRy> 
这 是 在 同一 磁盘 上 把 DEF. BAS 文 件 复 制 为 名 字 是 ABCD， 


1) PP 参 数 种 类 较 多 , 待 读者 熟悉 8 \SIC 请 语 可 再 行 了 解 ,此 处 从 简 。 
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BAS 的 文件 ; 

AyPlP B ABCD. BAS= A， DEF. BAS 
《CR》 
把 A; 中 DEF. BAS 文 件 复 制 到 B:， 中 破 盘 上 ， 
DBANSE ED ASTE 
5 
把 A; 中 DPF.， BAS 文 件 复制 到 B:, 中 磁盘 上 ， 名 字 改 为 
ABCD.B AS， 参 数 V 表 示 复 制 结束 后 ， 要 求 自 动 核对 新 
老 文 件 是 否 一 致 ， 若 完成 无 误 ， 则 出 现 CPV M 系 统 提示 符 。 
复制 文件 时 ， 用 这 种 办 法 以 检查 复制 是 否 正确 ， 应 经 常 采 
用 ; 

@ 成 批复 制 文件 
例如 : 
Ay》PIP B:;,=A:, 闪 . BASIV] 《CR 
显示 ， 

COPYING 一 

ABCD，BAS 

CEF. BAS 

HEJ，BAS 

Ay》 
即 是 把 A， 中 扩展 名 为 BAS 的 文件 都 复制 到 B:， 中 ， 文 件 
名 不 变 。 复 制 过 程 中 ， 自 动 显示 复制 的 文件 名 ; 

曲 几 个 文件 连接 后 复制 ， 并 建立 新 文件 。 例 如 ， 

有 :六 是 让 -本 BC 有 8 三 信 疝 生 AS 
FGIL BASIV] 《CR 
即 把 A; 中 的 DE. BAS 文件 与 B; 中 FGIL BAS 连接 起 
来 ， 复 制 到 B:， 上 成 为 新 文件 ABC. BAS。 


]1857 


(2) 沟通 磁盘 文件 与 其 他 外 部 设备 关系 ， 或 沟通 外 部 设 
备 回 关系 。 例 如 : 

A>PIP LST: =A，ABC,， BAS《〈CRy 
把 入 ， 中 磁盘 上 文件 ABC. BAS 从 打印 机 输出 , 按 任何 键 则 


中 止 输出 。 
3.5.6 有 关 过 渡 命 令 的 错误 信息 
一 般 性 的 错误 信息 


键入 命令 ? 可 能 是 命令 打 错 了 。 

BDOS FRR ON d，BAD SECTOR 可 能 磁盘 没有 
格式 化 ， 或 磁盘 上 某 一 遍 区 有 问题 ， 或 磁盘 没有 放 好 。 

BDOS ERR ON d， SELECT 驱动 器 指定 错 了 ， 或 
驱动 器 门 未 关 好 ， 或 该 驱动 器 的 电源 未 打开 。 

BDOS ERR ON d，R/O 磁 盘 写 保护 ,或 换 了 磁盘 以 
后 没有 执行 热 引导 。 
STAT 命 令 的 错误 信息 

关头 ABORTED 关 关 ， STAT 命 令 终 止 了 。 

Bad Delimitcr 标 点 位 置 有 误 。 

Invalid Assisnment 指 定 设备 的 格式 有 错 。 

Invalid Pie jndicator 指 定 文件 的 格式 有 错 。 

关 关 TOO MANY FILBS 关头 超过 S 个 A 个 所 能 重 排 
的 文件 数量 的 上 限 。 

Invalid Disk Assienment 磁盘 指定 方式 不 正确 。 

Wrong CPM Yersiion 由 于 STAT 的 型 号 与 CP/ M 型 
号 不 符 而 出 错 。 
PIP 命令 的 错误 信息 

DISK READ ERROR 读 磁盘 错 。 

DlSk WRITE ERROR 写 磁 盘 错 。 
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VERIFY ERROR 常 与 BDOS 错 同 时 发 生 。 

NOT A CHARACTER SINK 不 能 把 字符 送 至 
该 处 。 

READER STOPPED 读 入 装置 停止 。 

NOT ACHARACTER SOURCE 不 能 从 该 处 取 

ABORTPD 处 理 过 程 终 止 了 。 

BAD PARAMETERTI  ] 内 的 参数 不 正确 。 

INVALID USER NUM BPR 用 户 编号 不 正确 。 

RECORD TOO_ LONG 记录 长 度 太 大 。 

JNVALID DIGIT 与 Je 格式 不 相符 合 。 

FEND OF。FILE，CTL-Z? PIP 已 经 侦 测 到 文件 的 
未 尾 ， 但 要 求 操 作 CTrl- Z 键 ， 以 便 加 以 肯定 。 

CHECKSUM ERROR 表 示 Intel 格 式 的 检查 值 与 读 
入 的 记录 不 符合 。 

CORRECT ERROR 改正 错误 。 

INVALID FORM A 个 格式 不 正确 。 

NO DIRECTORY SPACE 文 件 目录 已 经 满 了 。 

NO _ FILE 不 存在 指定 的 文件 。 

START NOT FOUND 没有 找到 指定 的 起 始 字符 


QUIT NOT FOUND 没有 找到 指定 的 终止 字符 串 。 
CANNOT CLOSE _ FILE 检查 磁盘 。 
DESTINATION [LS _R/O 目 的 文件 为 只 读 型 ， 请 按 Y 
键 删除 它 ， 并 写 入 新 的 文件 。 党 
XXNOT DELETED 关 关 对 于 上 面 的 错误 ， 若 按 N 
键 ， 则 显示 此 信息 。 
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-NOT FOUND 与 NO FT 忆 类 似 。 

REQULRES CPb/M2.0 PLP 型 号 必须 符合 CP7M 的 
型 号 。 

UNRRCOGNIZED DRESTINATION 指定 的 外 设 
不 存在 。 

CANNOT WRITE 无 法 写 入 。 

INVALID PIP FORM AT 检查 标点 是 否 有 错 。 

CANNOT READ 无 法 读 出 。 

INVALILD SFPARATOR 检查 标点 是 否 有 误 。 


SN 3.6 MICRGSOFT BASIC 语言 

3.6.1 进入 MBASIC 的 工作 方式 

MICROSOFT BAS1C 是 为 C-80 和 8080 微 处 理 机 设 
计 的 高 级 语言 ， 目 前 已 发 行 到 第 五 版 ， 使 用 极为 广泛 。MB- 
ASIC 是 MICROSOFT BASIC (也 称 BASIC-80) 
的 CP7M 版 本 ， APPLET 微 机 有 了 Z-80 捅 件 和 CPyM 系 
统 盘 就 可 用 MB ASIC 语 言 编制 程序 。 因为 CP/7M 系 统 稚 上 
的 解释 程序 文件 名 称 为 MB ASIC . COM， 微 机 在 CP7 M 
系统 控制 下 ， 出 现 A ，， 键 入 过 渡 命 令 MB ASIC，,. 并 按 回 
车 键 ， 就 能 进入 MB AS1C 工 作 方 式 ，16 扇 区 的 CRP/ M 系 
统 主 盘 上 除了 MB AS LIC . COM 程 序 文件 外 ， 还 有 GD A- 
SIC.COM 程 序 ， 在 CP/M 系 统 提示 符 下 键入 GBASIC ， 
并 按 回 车 键 ， 就 进入 有 高 分 . 辩 图 象 显 示 的 GDBDASIC 工 
作 方 式 。 以 下 我 们 主要 介绍 第 五 版 DAS1C-80 工 作 方 式 。 进 
入 MBASIC 工 作 方式 的 格式 有 如 下 几 种 : 
AMBASIC(CR) 
键入 以 上 命令 ， 就 会 显示 : 
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BASIC-80 REV.:.5.2 
[APPLECP/IM VERSION ] 
CORYRIGHT (C) 1980 BY MICROSOFT 
CRFEATED，12-NOV-80 
26483 BYTES FRER 
OK 3 
( 注 ， 上 述 显示 仅 为 例子 , 由 于 版 本 不 同 ， 建 立时 间 不 同等 ， 
具体 日 期 .数字 均 会 有 所 不 同 。) 这 时 已 进入 MB AS IC 工作 
方式 ， 并 且 撕 定 执行 程序 时 最 多 只 能 同时 打开 3 个 文件 ， 容 
许 全 部 内 存 从 CP/M 中 FDOS 的 起 始 位 置 开 始 ,并 指定 随 
机 文件 记录 的 最 大 长 度 为 128 个 字 节 。 
AMBASIC 文 件 名 《CR》 
这 种 方式 使 用 所 有 的 内 存 ， 最 多 可 同时 打开 3 个 文件 ， 装 入 
并 立即 执行 指定 的 文件 。 
AMBASIC 文 件 名 /F: 文件 数目 《CR， 
入 直 全 用 夺 有 和 在 让 要 多 可 辣 本 下 近 站 统 旧 的 安 作 
装 入 并 立即 执行 指定 的 文件 。 
A ， MBAS IC 文件 名 /FE: 文件 数 / M: 内 存 的 最 大 位 置 /S ， 
记录 的 最 大 长 度 《CR， 
这 种 方式 使 用 户 有 较 大 选择 ， 即 指定 了 MB AS IC 使 用 内 存 
的 最 大 位 置 ， 允 许 同 时 打开 的 文件 数 ， 随 机 文件 记录 的 最 大 
长 度 以 及 装 入 并 运行 指定 的 文件 。 
3.6.2 程序 语句 中 程序 行 、 常 数 、 字 符 和 变量 的 格式 
程序 行 
MBAS1C 中 对 程序 行 的 用 法 与 APPLES OFT 关 似 ， 
是 允许 行 号 的 范围 是 0 一 65529 
数 


得 酒 


必 
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有 五 种 类 型 : 

人 整数 ， 数 值 在 一 32768 与 32767 之 间 ; 

人 单 精度 数 : 

表示 范围 ; 绝对 值 在 1 x10-38 至 1.701411X1038 之 间 。 
. 单 精度 数 指 的 是 符合 以 下 条 件 之 一 的 数据 : ， 

a) 长 度 委 7 位 的 数 ( 进 入 主机 内 存 实际 只 有 6 位 ， 故 输 ， 
出 只 有 6 位 有 效 数 字 ); 

指数 形式 是 忆 ; 

) 数据 尾部 有 ! 符号 。 
0 果 : 


10 A=1234561 
20 LPRINT"A= "3iA 
30 B=1.23457E+O6 
4 LPRINT“B="5 日 
So C=lli 

40 LPRINT”C=";C 


= 234S6 


E= 工 .234S57E+OO6 
已 = 了 土 了 
图 双 精 度数 


表示 范围 ， 基 本 与 单 精度 数 一 致 。 

双 精 度数 指 的 是 符合 以 下 条 件 之 一 的 数据 : 

a) .长 度 8 位 的 数 ( 向 计算 机 输入 数据 时 ， 双 精度 数 的 
有 效 数 位 最 多 为 17 位 ， 输 出 时 只 能 有 16 位 ); 

) 指数 形式 是 D; 

c) 数据 尾部 有 并 符号 。 


号 
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例如 下 面 的 程序 及 其 运行 结果 : 


车 及 # 一 二。2 枉 45 和 7991234SG68BD+1T7 
人 2 局 革 户 RINT ”全 林 = 王 ” 从 并 

本 ”及 韩 二 二 忆 卫 4 与 后 7 得 井 

人 4 口上 由 RINT ”了 苹 井 二 ”和 有 左 

与 驯 ， 马 埋 二 二 局。 全 王 提 

局 LPRINT"C#== 3 


后 井 = 十 。 人 2 汪 4S 和 7 日 913455OBD+I7 
呈 井 = 二 234S679 
人 埋 二 二 吕 。 六 入 与 


井 十 六 进 制 常数 ， 数 字 前 面 以 必 日 为 标记 ; 
@@ 八进制 常数 ， 数 字 前 面 以 六 O 或 & 为 标记 。 


与 APPLESOFT 的 规定 相同 。 

MBASILIC 变 量 名 的 最 大 长 度 是 40 个 字符 ， 第 一 个 字符 
必须 是 字母 ， 变 量 名 不 能 用 保留 字 。 字 符 串 变量 尾部 以 $ 为 
标记 。 数 组 变量 最 多 可 以 有 255 维 , 每 维 最 多 可 有 32767 个 元 

MBASTIC 的 数值 变量 有 三 种 形态 , 在 使 用 之 前 指定 , 指 
ee 

GD 变量 名 最 后 为 特定 类 型 说 明 符 : 

% 整 变量 

! 单 精度 变量 

雁 双 精 度 变量 

若 变量 名 后 面 没有 以 上 符号 ， 则 默认 为 单 精 度 变 量 。 
@ 用 定义 语句 定义 
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a) DRFRFINT 字 母 域 

在 这 个 语句 后 的 变量 ， 只 要 是 指定 字母 域 中 任 一 字母 开 
头 的 变量 就 是 整 型 变量 ， 但 若 变量 已 有 类 型 说 明 符 ， 则 以 说 
明 符 规定 的 类 型 为 准 。 例 如 : 

10 DEFINT A，I， 反 一 ASX 
表示 在 10 行 以 后 ， 凡 名 字 以 A，I，K，L ，M，N 字母 开 
头 的 变量 都 是 整 型 变量 ， 例 如 A 1，L4 都 是 整 型 变量 。 但 是 
. 工 节 则 是 双 精 度 变量 ,A4! 则 是 单 精度 变量 。 
b) DERFS NG 字母 域 
是 定义 单 精度 变量 的 语句 ， 其 它 意义 与 以 上 对 整 型 变量 
定义 语句 类 似 。 

c) DEFDBEL 字母 域 

是 定义 双 精 度 变 量 的 语句 ， 其 它 意 义 与 以 上 定义 类 仆 。 

d) DERFRSTR 字 母 域 

是 定义 字符 串 型 变量 语句 ， 其 它 意义 与 以 上 定义 类 似 。 

选择 变量 类 型 的 原则 ; 

选择 变量 的 类 型 时 ， 要 考虑 到 运算 精度 、 所 占 内 存 和 运 
算 速度 三 方面 ; 

精度 ， 以 双 精 度数 最 高 ， 整 型 数 最 差 ; 

内 存 ， 双 精度 数 要 求 8 个 字 节 内 存 ， 单 精度 数 要求 4 个 
字 节 内 存 ， 整 型 数 要 求 2 个 字 节 内 存 ， 所 以 双 精 度数 占 内 存 
最 多 ; 

运算 速度 ， 双 精度 最 慢 ， 整 型 数 最 快 。 

另外 ， 在 程序 中 ， 同 一 个 变量 名 , 定义 为 不 同 的 类 型 时 ， 
机 器 将 认为 它们 是 不 同 的 变量 ， 例 如 A 并 ，A! ，A%% 是 不 
同 的 变量 。 

3.6.3 数 的 类 型 转换 
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.在 需要 时 ， 一 个 数值 常数 可 从 一 种 类 型 转换 为 另 一 种 类 
型 ， 可 有 以 下 几 种 情况 ， 

(1) 单 精度 数 或 双 精 度数 转换 为 整 型 数 时 ， 按 照 数值 取 
整 原则 进行 。 

(2) 整 型 数 转换 为 单 精度 数 或 双 精 度数 时 ， 所 得 数 就 是 
这 个 整 型 数 所 具有 的 精度 。 

(3) 又 精度 数 转换 为 单 精度 数 时 ， 最 后 一 位 有 效 数 字 是 
四 含 五 入 得 来 的 。 

(4) 单 精度 数 转换 成 双 精 度数 时 ， 只 有 前 面 七 位 有 效 数 
是 精确 的 ， 若 单 精度 数 的 有 效 数 字 不 到 七 位 ， 可 能 有 较 大 误 - 
差 。 例 如 : 


1 ABCD#=1 7 3 

26 ABCDEF#=234 

30 ABCDEFGHIJ#= -369 
40 LPRINT ABCD# 

SO LPRINT ABCDEF# 

6 LPRINT ABCDEFGHIJ# 


运行 后 输出 结果 是 : 
.3S3333S3S3S43SDO74408 
的 
,36900D0t76429749 


(5) 两 个 整 型 数 算术 运算 结果 若 超出 整 型 数 范 围 ， 则 结 
果 作 单 精 度数 处 理 ;， 除 些 以外， 所 有 数 的 算术 运算 结果 都 以 
操作 数 中 最 高 精度 数 处 理 , 即 运算 结束 后 也 回复 到 这 个 精度 。 

〈《6) 数 的 关系 运算 中 ， 计 算 机 先 把 操作 数 都 转化 为 运算 
数 中 较 高 类 型 的 一 类 ， 然 后 计算 。 

(7) 逻辑 运算 时 ， 计 算 机 先 对 操作 数 取 整 ， 然 后 运算 。 
若 取 整 超 出 范围 ， 则 为 溢出 错 。 逻 辑 运算 的 结果 总 是 整数 
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3.6.4 表达 式 及 运算 规则 
绝 大 部 分 与 APPLES OFT 相 同 ， 主 要 增加 如 下 内 
容 : 
整除 

倒 斜 线 “民办 即 CTREL-B) 表示 整数 除法 ， 要 求 数值 
在 一 32768 与 32767 之 间 ， 商 只 取 整 数 部 分 ， 小 数 部 分 舍 去 。 
例如 ; 

10 入 4=2 
要 注意 的 是 整除 的 运算 次 序 在 乘法 和 浮 点 除法 之 后 。 
整数 余数 
整数 余数 以 MO D 表示 ， 即 取 整 数 除法 后 整数 的 余数 。 
例如 : 

11.369 MOD 3=2 

(因为 11 和 3=3 余 2) 

MOD 的 运算 次 序 ， 位 于 整数 除法 之 后 。 
除数 为 零 或 溢出 时 程序 继续 运行 

MBASIEC 的 程序 在 除数 为 零 〈 或 除数 太 小 , 接近 于 零 ) 
或 计算 浇 出 时 ， 都 会 显示 错误 信息 ， 但 运算 都 继续 进行 ， 当 
然 运算 结果 肯定 是 不 正确 的 ， 例 如 下 面 这 个 程序 与 它 运 行 的 
结果 : 

和 人 全 = 与。 信和 7 

们 口 马 一 1 蕊 一 人 名 

DC= 人 7/ 电 

信 忆 上 产 RTNTY AS= 从 

与 站 LPRINT"C=C 

因 划 了 = 二 

7O 所 =: 人 /7D 

息 忆 RPRRINT AS= 全 

9 上 户 RINT"E=” 


= 135.467 
= .7Dt41E 二 3 
= 135.467 

= 1.70141E+3& 


下 了 口 了 


程序 运行 中 ， 首 先 屏幕 显示 OVEREFLOW (溢出 错 ) ， 然 
后 打印 A 值 、C 值 ， 又 显示 DIVISION BY ZERO( 除 
数 为 零 错 )， 打 印 A 值 、 巨 值 。 显 然 C 值 ， 正 值 都 是 不 正确 
的 。 
3.6.5 MBASIC 的 命令 和 语句 
以 下 按 字 母 顺序 排列 介绍 MB AS1C 的 命令 和 语句 。 
按 惯 例 ， 命 令 指 的 是 可 以 直接 执行 的 指令 ， 语 名 指 的 是 在 程 
序 中 执行 的 指令 。 有 的 指令 既 可 作 命 令 ， 也 可 作 语 句 。 介 绍 
中 凡 与 APPLESOFT 功 能 相同 的 命令 和 语句 从 简 ，MBA- 
SIC 与 APPLESOFT 指 令 的 异同 请 见 8$ 3.9。 
为 了 使 用 上 的 方便 ， 以 下 把 语法 表达 格式 作 如 下 规定 : 
《 ”号 内 的 内 容 必须 由 用 户 提 供 ; 
[ ] 号 内 的 内 容 根据 要 求 选用 ， 
后 的 符号 〈…) 表示 可 以 重复 使 用 该 项 目 ， 直 到 该 
行 的 终点 ; 
被 委 直 线 符号 〈 | ) 所 隔 开 的 两 个 项 目 ， 只 能 选择 其 中 
一 项 ; 
所 有 保留 字 的 前 后 ， 都 必须 空 一 格 ; 
除了 朋 括 号 和 中 括 导 外， 所 有 指令 中 标点 符号 不 能 任 
取舍 。 
AUTO 1 
是 输入 程序 前 预订 自动 输出 行 号 的 命令 。AUTO 的 标 
准 格 式 是 AUTO [《〈 行 号 ),[〈 增 量 7"]]， 有 几 种 可 能 采用 
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的 格式 : 

GO AUTO 

行 号 及 增 量 都 不 写 ， 则 表示 开始 行 号 为 10， 增 量 为 10. 
所 输出 的 行 号 为 1b，20，30， 

@ AUTO 开 始 行 号 ， 增 量 

指定 开始 行 号 以 及 行 号 间隔 。 

如 AUTO 100,50 输 出 行 号 为 100,150,200,… 

图 AUTO 开 始 行 号 ， : 

指定 开始 行 号 ， 行 号 间隔 用 上 次 AUTO 指定 的 行 号 增 
量 。 
若 键入 AUTO 命令 之 前 已 有 行 号 相同 的 程序 行 ， 则 在 
新 行 号 之 后 先 出 现 提 示 符 兴 ， 这 时 若 按 下 回 车 键 ， 表 示 原 先 
程序 行 保留 ， 若 打 入 新 语句 再 键入 加 车， 则 原 程序 内 容 就 被 
新 语句 内 容 冲 掉 。 

键入 CTRL-C 即 退出 AUTO 命令 
浊 请 

为 发 声 语句 。 

格式 : 

BEEP 音 高 ， 维 持 时 间 

音 高 : 0 为 最 高 音 ，255 为 最 低音 。 

维持 时 间 : 0 为 最 短 时 间 ，255 为 最 长 时 间 ,， 约 为 1 秒 

下 面 的 程序 产生 一 连 串 由 高 到 低 的 声音 。 

10O FOR TI=O TO 255 

20 BEEP I,I 

3C NEXT 
CAELEL 
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调用 Z-80 汇 编 语言 或 6502 汇 编 语言 的 命令 或 语句 。 

语句 格式 1 : 。 

CALL-《 变 量 名 》 [(《 自 变量 表 ) ] 

目的 ， 调 用 Z-80 汇 编 语言 子 程序 。 

语句 格式 2 : 

CALL%《 变 量 名 》 [(('〈 自 变量 ?) ] 

目的 ， 调 用 6502 汇 编 适 言 子 程序 。 

其 中 变量 各 代表 了 子 程序 内 存 起 始 地 址 ， 但 变量 名 不 可 
以 是 数组 变量 名 。 自 变量 表 指 的 是 传送 到 汇编 语言 子 程序 的 


变量 。 


CHAIN 


程序 连接 运行 的 语句 ， 与 APPLESOFT 中 用 法 不 同 。 


语句 格式 ; 


CHAINLMERGE]《 文 件 名 )[，[( 行 号 表达 式 > ] 
[，ALL][,DELETE 《范围 ] ] 

GD CHAIN 文 件 名 ， 行 号 ，ALL 
其 中 文件 名 指 的 是 要 求 连接 的 磁盘 上 已 知 文件 的 名 字 ;， 行 号 
指 的 是 要 求 连 接 文件 的 开始 行 号 ALL 代表 主机 内 存 中 正 
在 运行 程序 的 变量 全 部 传送 到 要 连接 的 文件 中 去 执行 。 

例如 磁盘 上 有 已 知 程序 文件 L-12. BAS ， 如 下 : 


主 全 和 ) 
工 总 
1 全 人 
二 癌 
1 4 怠 


LPRINT"A= "8 A 
LPRINT"B= "也 

FOR TI=1 TO 11 
LPRINT"C4"STS ="3C(I) 
NEXT 


现在 在 主机 上 键入 以 下 程序 ; 
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1 DIM CE(1Ly》 
20 FOR I=t TGO 11 
3 CI)= 工 
4 NEXT 

”SO A=1tti 
如 口琴 王 也 了 全 


SC CHAIN "B:L-12.EAS" 1100 ALL 


第 80 行 要 求 连接 驱动 器 B :中 磁盘 文件 L -12. B AS ， 并 将 
其 变量 的 值 全 部 传送 过 来 。 运 行 这 个 程序 的 结果 打印 输出 ; 


上 
ODN 一 


Cd lo0 )= 10 
CGOlil )= 11 


显然 这 是 磁盘 文件 L -12.BAS 引入 主机 运行 的 结果 ， 所 有 
变量 值 都 已 传送 过 来 。 这 时 执行 LIST 命 令 ， 屏 幕 显示 的 是 
所 连接 的 L-12.BAS 的 程序 。 

@ CHAIN MERGE 文 件 名 ， 行 号 ，ALL 
-其 中 CHAIN MERSGE 表 示 要 求 连 接 和 覆盖 磁盘 文件 的 命 
令 。 文 件 名 指 的 是 磁盘 文件 名 字 ; 行 号 指 磁盘 文件 的 开始 行 号 ; 
ALL 指 把 全 部 变量 传送 到 被 连接 的 磁盘 文件 程序 中 去 执行 。 
这 里 有 个 规定 ， 凡 是 被 ME R GE 的 磁盘 文件 要 求 原 先是 以 
ASCII 格式 存 入 的 文件 。 
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例如 磁盘 上 有 AS CHII 格 式 的 文件 AQQ . AS C 如 下 : 


100 LPRINT"A="3A 

110 LPRINT"B="5B 

20 FOR I=1 TO 11 

130 LPRINT "C("3I32)=*3C(I) 
140 NEXT 


现在 在 主机 上 键入 以 下 程序 ， 


DIM Clil) 

FOR IJ=t TO ti 

CI)=I 

NEXT 

和 Tttit 

B=222 
CHAIN MERGE "B:QQQ.ASC"” 100。ALL 


NT 人 本 hhNo 


其 中 第 7 行 要 求 连 接 运行 和 联 上 (作为 覆盖 ) 磁 盘 文 件 QQQ . 
AS C， 并 把 全 部 变量 传送 过 去 执行 。 运 行 这 个 程序 的 结果 
是 打印 输出 ; 


睦 
DDNCOT 人 hr 


人 2( 1 ) = | 
CC ll )= 11 
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显然 这 已 是 磁盘 文件 QQQ .AS C 引入 主机 运行 后 的 结果 ， 
所 有 变量 值 都 已 传送 过 来 。 这 时 若 执行 LIS 个 命令, 则 屏幕 
显示 的 是 主机 内 原先 程序 与 引入 磁盘 文件 程序 联 在 一 起 的 程 
. 序 如 下 : 

1 DIM C(11t)》 
2 FOR I=l1 TO 11 
SC(I)zT 
4 NEXT 
马 和 slt1l 
和 Ba222 

7 CHAIN MERGE "BiQQQ。 ASC"， 100， ALL 

100 LPRINT% As" 

110 LPRINT"B="3 B 

120 FOR I=t TO tit 

1xO LPRINT"C "TI32) my CI)， 

140 NEXT 了 
假如 原先 主机 内 程序 有 的 行 号 与 磁盘 文件 程序 行 呈 相同， 则 
运行 的 结果 将 被 顶替 。 

要 注意 的 是 ， 以 上 两 种 格式 中 , CHALN 格式 不 会 保 久 
被 连接 程序 中 的 变量 形态 或 者 自 定义 的 函数 ， 必 须 在 被 连接 
程序 中 重新 定义 ， 而 使 用 MER G 已 格式 就 可 以 保 贸 。 
CLEAR 

语句 格式 ; 

CLEAR[, [表达 式 1?] [表达 式 27]] 

将 所 有 数值 变量 清除 为 零 ， 字 符 串 变量 清除 为 空白 。 可 
用 作 命 令 或 语句 ， 表 达 式 1 指 内 存 地 址 ， 表 达 式 2 指 堆栈 空 
间 ， 用 法 与 APPLES OF 类 似 。 


CLOSE 


语句 格式 ; 
CLOSE[ 共 ]( 缓 冲 区 编号 )[,[ 并] 缓冲 区 编号 
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> 
关闭 文件 ， 用 法 见 3.6.6 顺序 处 理 文件 及 3.6.7 随机 
存 取 文 件 。 
COLOR 
指定 低 分 辨 图 形 显示 的 颜色 。 
格式 : 
COLOR =( 颜 色 号 码 》 
有 16 种 颜色 : 
0、 黑 色 1 紫红 色 2 深蓝 色 3 紫色 4 深 绿 -: 


色 5 灰色 1 6 中 等 蓝 色 7 淡 蓝 色 8 棕色 9 橙 -… 


” 色 :10 灰 色 2 1 粉红 色 12 绿色 13 黄色 . 14 水 色 
45 和 白色 
COMMON 

语句 格式 : 

COMMON 〈 变 量 )《〈, 变量 … 

在 连接 运行 程序 时 ， 与 CH AIN 诲 句 连 用 ,把 指定 变量 
的 值 传送 给 被 连接 的 程序 使 用 COMMON 语句 必须 放 在 
程序 的 最 前 面 。 同 一 个 变量 不 能 在 一 个 以 上 的 COMMON 
语句 中 出 现 , 数组 变量 后 面 必须 跟着 空心 的 括号 ( )。 例 如 ， 
”磁盘 上 有 文件 程序 (L-12.BAS) 如 下 : 


100 LPRINT' Am A 

110 LPRINT"Bem "3 B 

120 FOR I=1 TO li 

130 LPRINT”"C("3I3”)=“3 CIT) 
140. NEXT 


现在 设计 一 个 程序 ， 连 接 运 行 这 个 磁盘 文件 ， 并 传送 指定 变 
量 ， 如 下 : 
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412 DIM Citl) 

2 FOR TI=l1 TO 11 

3 CI)=I 

40 NEXT 

So9 A=ttli 

折 口 “ 责 = 民 2 人 

7CG CDMMON A,C() 

BO CHAIN "也 :L-12.。BAS" 


第 70 行 是 传送 变量 A、 数 组 C 〇 给 被 连接 程序 的 命令 , 第 80 行 是 
连接 运行 L -12.BAS 的 命令 ， 命 令 中 省 去 了 行 号 和 ALL。 
运行 这 程序 时 就 接着 把 磁盘 文件 L-12.B AS 引入 主机 运行 ， 


并 打印 输出 : 
后 一 土 硅 土 
一 犁 
C( 1 )= 工 
DC 习 》 一 全 
CC( 汉 )》= 节 
CC 和 )= 和 44 
CC 区)= 
DC 四 )= 扣 
CE7 )》= 7 
Ct 日 )= 号 
CC )= 9 
人 (1 = 二 埠 
CC 11 )》= 二 


显然 这 是 把 变量 A 和 数组 变量 C 传送 过 来 的 结果 ， 变 量 B 则 
没有 传送 过 来 。 这 时 车 键入 LIST 命 令 ， 显 示 出 来 的 只 是 
L-12.BAS 的 程序 ， 原 先 主 机 中 的 程序 已 给 冲 掉 了 。 

程序 连接 运行 中 ， 若 需 传 送 全 部 变量 ， 其 格式 就 是 前 面 
介绍 过 的 CHALN 语句 中 使 用 参数 ALL， 这 时 就 不 必用 
COMMON 语 名 了 。 
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CONT 

程序 运行 中 ， 遇 STOP 或 END 语 名 停止 运行 时 ,可 
键入 CONT 命令 使 程序 继续 运行 .程序 运行 中 若 键入 CT- 
RL-C 使 程序 暂停 ,也 可 键入 CONT 命 令 以 继续 运行 程序 。 
与 APPLES OF 用 法 相同 。 
DATA 

与 READ 语 名 配合 使 用 为 置 数 语句 ， 数 据 之 间 必 须 
用 逗号 隔 开 。 与 APPLES OF 人 用 法 相同 。 
DEF FN 

是 用 户 自 定 义 函 数 语句 。 与 APPLESOFT 用 法 稍 不 同 ， 
函数 中 可 以 有 几 个 形式 参数 。 

语句 格式 : 

DEF FN( 函 数 名 》{(( 形 式 参 数 )〈，, 形式 参数 ， 

= 《函数 表达 式 》 

例如 程序 : 

1 DEF FN 和 YY DZ D) 一 X 一 信 二 站 全 二 全 十 吕 亿 

公 口 有 =1 3 B= 人 :CC= 


局 D=4 
40 FRINT FN ARCIA,B,C) 


运行 这 个 程序 的 结果 是 屏幕 显示 数据 30。 人 
MB AS:IC 中 自 定 义 函 数 语句 特点 ; 

GD 形式 参数 可 以 用 多 个 ; 

@) 函数 表达 式 中 的 变量 可 以 用 程序 中 运算 结果 的 变量 
值 。 
DEF INTCSNG，DBL，.STR) 

语句 格式 : 

DEF 类 型 )《〈 字 母 范围 》 
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用 于 指定 变量 类 型 ， 其 意义 请 参阅 3.6.2。 

DEF USR 
语句 格式 : 

DEF USR [数字 >] = 整数 表达 式 》 

指定 汇编 语言 子 程序 的 起 始 地 址 。 
DEL 

语句 格式 ， 

DEELL 行 号 ] [一 《 行 号 >] 

删除 程序 行 的 命令 ， 也 可 用 DELETE。 

DEL 行 号 删除 指定 行 号 的 程序 行 。 

DEL 行 号 1 一 行 号 2 ”删除 行 号 1 与 行 号 2 之 间 所 有 
程序 行 ， 包 括 这 两 个 程序 行 。 
DEL 一行 号 删除 程序 开始 到 指定 程序 行 之 间 所 有 程 
序 行 ， 包 括 指定 行 号 的 程序 行 。 
DIM 

语句 格式 ， 

DIM 数组 变量 》〈, 数组 变量 》… 

。 数组 说 明 语句 ， 与 APPLES OFT 用 法 类 似 。 

EDIT 

指定 程序 行进 入 编辑 状态 的 命令 。 

格式 ; 

EDIT 《〈 行 号 》 
这 是 MB ASTC 特 有 的 命令 ， 方 便 程 序 行 的 修改 。 键 入 ED- 
IT 命令 后 , 指定 的 程序 进入 修改 状态 ， 先 显示 该 行 号 ， 若 按 
空格 键 ， 光 标 向 右 移 ， 移 过 处 的 字符 显示 出 来 ; 若 按 [ 键 ， 
使 光标 所 在 位 置 处 于 插入 字符 状态 ， 可 以 键入 所 需 揪 入 的 字 
” 符 ， 按 忆 S C 键 则 脱离 插入 状态 ， 按 回 车 键 则 直接 输入 整个 
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区 


程序 ， 若 按 D 键 ， 进 入 删除 字符 状态 ， 删 去 光标 右 方 一 个 字 
符 ， 若 按 〈 数 字 ) D 键 ， 则 删 去 指定 个 数 的 字符 ， 删 去 的 字 
符 显 示 出 来 ， 并 用 倒 斜 线 区 别 出 来 ， 若 按 H 键 ， 删 去 光标 右 
方 的 字符 ， 自 动 进 入 插入 状态 ， 若 按 A 键 ， 回 复 这 程序 行 原 
始 的 内 容 ， 光 标 移 至 程序 行 开 头 ， 以 便 重新 修改 这 一 行 ， 若 
按 X 键 ， 则 光标 移 到 程序 末尾 ， 这 时 可 以 继续 键入 字符 。 

在 修改 状态 下 ， 着 键入 命令 不 合法 ， 则 会 发 出 警告 声 ， 
不 接受 命令 

若 要 退出 上 DIT 状 态 ， 只 要 按 回 车 键 ， 这 时 就 把 整个 各 
序 行 都 显示 出 来 ， 并 已 进入 内 存 。 


上 述 编辑 操 作 可 以 下 表 说 明 : 
按键 、 功 能 光标 动作 
空格 键 把 移 过 处 字符 显示 出 来 ” 右 移 
I 键 -4 光标 所 在 答 置 处 于 捅 不 动 
入 字符 状态 


ESC 键 ”脱离 插入 字符 状态 不 动 
(数字 ) D 键 ”删除 光标 所 在 位 置 右 。 删 去 的 字符 在 一 对 
方 指定 个 数 的 字符 倒 斜 线 之 间 显 示 出 


来 
二 键 删 去 光标 右 方 字符 ， 不 动 
自动 进入 插入 状态 
A 键 回复 这 程序 行 原始 内 
容 ， 以 便 重 新 修改 移 到 程序 行 开头 
X 键 继续 键入 程序 内 容  ， 移 到 程序 末尾 
回 车 键 显示 这 程序 行 ， 进 入 ”移入 下 一 和 
内 存 


另 一 种 情况 是 ， 当 某 程序 运行 时 ， 若 有 错误 ， 则 自动 进 
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入 修改 状态 ， 修 改 完 成 之 后 ， 按 回 车 键 ， 这 程序 行 又 进入 内 
存 了 ， 但 这 行 原先 变量 的 数值 全 部 丢失 了 ， 再 运行 才能 有 ; 
若 程序 修改 后 ， 按 Q 键 ， 这 时 也 会 退出 修改 状态 ， 但 是 程序 
实际 上 没有 修改 ， 而 这 行 变 量 的 值 仍 保留 在 内 存 中 。 
END 

结束 程序 的 运行 ， 关 闭 所 有 文件 。 与 APPLES OFT 
用 法 相同 。 

ERASE 

语法 格式 

ERASE“〈《 数 组 变量 》《〈, 数组 变量 >… 

是 取消 程序 中 数组 的 命令 ， 这 时 这 个 数组 又 可 以 重新 用 
数组 说 明 语 句 去 说 明了 。 例 如 下 面 这 个 程序 ， 由 于 有 了 第 20 
行 的 取消 A 数 组 的 命令 ， 第 30 行 就 可 以 重新 定义 数组 了 。 

1 DIM 有 (二 

OO ERASE 有 

3SD DIM A(Ctltiliy) 

4D FOR TI=1 TO 守 半 

SO FOR J=1 TO 1 

6o ANGI,J)=I 


7D FRINT 后 (IJ) ， 
BO NEXT3NEXT 


了 上 RRR 和 医 RL 
在 处 理 错误 流程 时 , ERR 变量 代表 了 错误 代码 ， 已 RL 
变量 代表 了 错误 行 的 行 号 。 这 两 个 变量 一 般 在 条 件 语句 中 使 
用 ， 指 引 程序 分 支 。 
ERROR 
语法 格式 ; 
”下 RROR《〈 整 数 表达 式 》 
这 个 语句 有 两 种 用 法 ; 
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GD 若 整数 表达 式 的 值 正 好 对 应 MBASIC 的 某 错 误 信 、 
息 的 代码 ， 则 会 把 错误 信息 印 出 ， 例 如 程序 : 


了 入 = 主 
人 人 百 一 名 
So ERROR A+R 


运行 这 个 程序 则 显示 代码 7 的 内 容 ， 即 ; 
OUT OF MEMORY IN 50 
放生 放 作 全 生生 和 志 可 提 关 估 和 生计 村 例如 键入 : 
ERROR 7 
则 也 会 显示 OUT OF MEMORY 
国 这 个 命令 也 可 使 用 户 自行 定义 错误 信息 的 代码 , 以 指 
引 程序 的 分 支 。 整 数 表达 式 的 值 必 须 在 0 与 255 之 间 。 例 如 
以 下 程序 及 其 运行 结果 : 
1 ON ERROR GOTO 4O0 
2O READ 各 
3D IF 有 3>O THEN ERROR 2 人 4 开 LSE 各 避 
40D IF ERR=24D THEN LFRINT “GOGQD1! 有 = “5 
SO IF ERL=SO THEN RESUME 20 


Go LPRINT “END" 
7O DATA 24、369 一 


GQ0D! A= 24 
GUOD' A= 369 
三 ND 


第 10 行 指定 程序 运行 出 错时 的 分 支 ， 第 30 行 自 定 义 出 错 编 码 
是 240， 第 40 行 是 条 件 分 支 语句 ， 若 错 码 等 于 240 则 打印 ， 第 
50 行 指定 车 错 码 行 的 行 号 是 30 则 重新 读数 据 。 人 
把 正 值 都 打印 出 来 ， 遇 负 值 则 打印 END， 运 行 结束 。 
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FIELD 
语法 格式 ， 
FIELD [并 ]《〈 缓 冲 区 号 码 》,《〈《 字 节 长 度 ) AS 《〈 字 
符 串 变量 》: 
用 于 了 六 件 旨 区 划分。 清册 的 人 
绍 。 
FILES 
语法 格式 : 
FILES [《 文 件 名 》 ] 
表示 把 现在 所 选用 驱动 器 中 磁盘 文件 目录 列 出 来 。 
例如 ，FILES “B:， 兴 . 关 ? 
指定 把 B 驱动 器 中 所 有 磁盘 文件 目录 都 列 出 。 
当然 也 可 指定 列 出 某 文 件 目 录 等 。 
FOR…NEXT 
语法 格式 : 
人 TO Y [ISTEP 2 ] 


NEXT [ 《 杰 量 ) 1 《变量 

式 中 入，Y ，2 是 数值 表达 式 。 

这 是 实行 循环 的 语 句 ， 用 法 与 AFPLESOFT 类 似 ， 
但 是 在 循环 嵌 套 时 ， 若 循环 在 同一 位 置 终止 ,NEXT 可 只 
写 一 个 ， 后 面 跟着 这 几 个 循环 变量 即 可 《〈 循 环 变量 间 用 逗号 
隔 开 )。 
GET 

@ 语法 格式 1 : 

GETT[I#] 《缓冲 区 号 码 》[, 《记录 号 码 》] 
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用 于 随机 存 取 文 件 ， 将 记录 读 入 缓冲 区 。 请 见 随 机 存 取 
文件 介绍 。 

@) 请 法 格式 2 : 

GET《 键 盘 字 母 ， 

这 是 从 键盘 上 输入 字母 的 语句 ， 程 序 运行 到 这 个 语句 时 
需要 键盘 输入 字母 ， 屏 幕 上 则 不 显示 ， 也 不 必 按 回 车 键 。 例 
如 程序 : 


1 FOR I=1L1 TO 瑟 
人 GET 从 囊 

了 LPRINT 闪 囊 : 
才 口 NEXT 


运行 这 个 程序 到 第 20 行 就 显示 光标 , 等 待 键盘 输入 一 个 字母 ， 
例如 5 次 循环 分 别 输入 ABCDE 这 5 个 字符 ， 不 必 按 回 车 
键 ， 就 会 输出 字符 串 ABCDE， 屏 幕 显示 OK， 表 示 运 行 
终止 。 
GOSUB… RETURN 

语法 格式 ; 

GOS UB“〈 行 号 》 


RETURN 
为 调用 子 程序 及 返回 ， 用 法 与 APPLESOFT 语 言 
相同 。 
GOTO 
语法 格式 ; 
GOTO《 行 号 》 
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为 无 条 件 转 向 语句 ， 用 法 与 APPLESOFT 语 言 相 
同 。 
GR 

语法 格式 : 


GR [〈 屏 幕 号 码 )[,〈 颜 色 编号 ] ] 
这 是 用 于 建立 低 分 辨 率 图 形 模式 的 命令 
至 1 ， 内 容 如 下 ; 

号 码 ”屏幕 状态 
0 


屏幕 号 码 为 0 
40Xx40 的 图 形 ， 
1 


4 行文 字 说 明 
40x 48 的 图 形 ， 没 有 文字 说 明 
假如 不 指定 屏幕 号 码 ， 则 自动 确定 号 码 为 0 。 
语句 中 的 颜色 编号 指定 屏幕 的 背景 颜色 ， 若 不 指定 颜色 
编号 ， 则 为 黑色 。 

GR 语 法 与 APPLES OFT 语 言 相同 。 

HLIN 
语法 格式 ; 


标 》 (0 委 X 与 Xz<39， 


《X :的 坐标 》AT《〈Y 的 坐 
0 入 Y 委 47) 

.这 是 低 分 辨 图 形 模式 中 ， 从 坐标 (Xi Y ) 至 坐标 ( X>， 
Y) 画 一 条 横 线 的 语句 。 所 画 线 的 颜色 由 最 近 的 COL OR 
语句 指定 。 
HOME 

语法 格式 : 

HOME 


为 清除 屏幕 ， 使 光标 回 到 屏幕 左上 和 角 的 命令 或 语句 。 用 
法 与 APPLES OFT 语 言 相同 。 
HTAB 
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语法 格式 ， 

HTAB 《屏幕 位 置 号 码 》 

指定 光标 移 到 屏幕 位 置 号 码 所 指定 的 位 置 ， 这 个 号 码 指 
的 是 绝对 位 置 ， 而 不 是 相对 位 移 。 屏 幕 上 每 行 最 左面 号 码 是 
1 ， 最 右面 号 码 是 40， 若 指定 的 屏幕 位 置 号 码 大 于 40， 小 于 
255, 则 根据 这 个 数值 被 40 除 后 的 余数 作为 真正 的 屏幕 位 置 号 
码 ， 若 指定 的 屏幕 位 置 号 码 大 于 255, 则 显示 错误 信息 ; 

ILLEGAL FUNCTION CALL (调用 非法 
函数 ) 。 
IEFE…TITHEN…ELSE 和 IF…GOTO 

有 几 种 格式 ， 

IFE《〈 表 达 式 ) THEN 《语句 ) 《〈 行 号 [ ELSEE 
《语句 》 《 行 号 > ] ， 
IF《 表 达 式 》GOTO(〈 行 号 ) [ELS 玉 〈《 语 句 ) ， 
《 行 号 > ] 

”在 APPLES OF 语言 中 没有 上 述 的 已 L S 下 语句， 
即 假如 表达 式 结果 为 零 ， 则 执行 ELS 巨 后 面 的 语句 《或 行 
号 )， 其 它 的 用 法 两 者 类 似 。 

INPUT 

程序 运行 中 ， 执 行 键 盘 输入 的 语句 ， 

语法 格式 有 几 种 ; 

亿 INPUT 《变量 )，〈 变 量 》,… 

程序 运行 到 这 个 语句 ， 出 现 问号 ， 要 求 键盘 输入 资料 ， 
变量 之 间 必 须 用 逼 导 隔 开 。 

包 INPUT 〈“ 字 符 串 当 ; 《变量 》，〈 变 量 ,… 

程序 运行 到 这 个 语句 ， 显 示 字 符 哩 ， 后 面 跟 问 号 ， 要 求 
-键盘 输入 资料 ， 变 量 之 间 必 须 用 有 逗号 隔 开 。 
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色 INPUT “字符 串 轨 ,《〈 变 量 ), 《变量 … 

程序 运行 到 这 个 语句 ， 显 示 字 符 串 ， 不 跟 问号 ， 要 求 键 
盘 输入 资料 。 

例如 下 面 这 个 程序 ; 

10 INFUT "AsB="5A。B 

20 INFUT "C="yC 

3Q LPRINT "=" 全 

40 LPFRINT “Bi=“"; 瑟 

SO LPFRINT “C=" 
运行 这 个 程序 到 第 10 行 ， 显 示 A，B =? 要 求 键盘 输入 ， 若 
键入 工 ， 2 则 继续 执行 到 第 20 行 ， 显 示 C = 要 求 键盘 输入 ， 
若 键入 3 则 顺利 运行 打印 输出 ; 


有 = 
BE= 了 

人 二 六 
假如 键盘 输入 资料 太 多 或 太 少 ， 屏 幕 将 显示 ? Redo from 
start 要 求 重 新 输入 ， 这 一 站 
不 同 。 
INPUT 才 

语法 格式 : 

_ INPUT 寺 《缓冲 区 号 码 )，《 变 量 》,: 

“ 从 顺序 处 理 磁盘 文件 输入 资料 的 语句 。 详 见 顺 序 处 理 文 
件 和 随机 存 取 文 件 的 介绍 。 
INYVERSE 

语法 格式 : 

INVERSE 

为 使 显示 屏 成 为 白 底 黑 字 画面 的 命令 或 语句 。 
KILEL 
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语法 格式 : 


KILL 《文件 名 》 

用 于 删除 所 有 类 型 磁盘 文件 的 命令 或 语句 ， 但 是 不 能 删 
除 目前 已 打开 的 文件 。 
工 也 工 


语法 ; [L 正人]《〈 变 量 》 = 《表达 式 》 

这 是 赋值 语句 ， 用 法 与 APPLES9S OFTI 语 言 相 同 , 也 
可 以 省 略 。 
LINE _ INPUT 

语法 格式 ， 

LINE _ INPUT 字符 串 变 量 》 

LINE _ INPUT 〈“ 提 示 字 符 串 ”》; 《字符 串 变量 》 
这 是 允许 整 行 输入 字符 串 变 量 的 语句 ， 字 长 不 超过 254 个 字 
符 。 程 序 运行 中 遇 到 这 种 语句 ， 会 出 现 光 祭 , 若 用 了 字符 串 ， 
“ 则 会 显示 提示 字符 串 ， 要 求 键盘 输入 字符 串 , 若 按 CTREL - 
C 键 ， 则 暂停 执行 LINE INPUT， 屏 幕 显示 4“OK，”, 键 
入 CONT， 则 继续 执行 。 以 下 是 个 例子 , 并 与 IN P UT 语 
名 比较 ; 


10 INFUT “及 种 王 "凡事 

2 上 PRINT “及 种 一 "8 及 囊 

100 LINE INPUT  “ 甩 囊 = "8 BR 刘 
tL1O LPFRINT “已 囊 = ”5 也 种 


运行 这 个 程序 到 第 10 行 显示 A 和 $ =， 键 入 Q WE 回 车 ， 则 运 
行 到 100 行 显示 B $ =?, 若 键入 Q WER，1234， 回 车 , 则 程 
序 执行 完毕 ， 打 印 输出 


从 种 = 包 WE 
成 种 =QWNER ,1234 
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LINE INPUT 二 

语法 格式 

LINE INPUT 共 《缓冲 区 号 码 》,， 《字符 串 变量 》 

用 于 以 整 行 方式 ， 从 顺序 处 理 文件 中 读 取 资 料 给 指定 的 
字符 串 变 量 。 也 可 用 于 随机 文件 中 ， 在 GET 语 名 之 后 ， 从 
随机 文件 缓冲 区 赎 入 资料 。 详 见 顺序 处 理 文件 和 随机 存 取 文 
件 的 介绍 。 
LIST 

用 于 列 出 程序 。 有 多 种 格式 : 

LIST 


LIST 行 号 ， 

LIST 行 号 ， 行 号 
用 法 与 APPLES OFT 语 言 相似 , 逗号 也 可 用 负 号 代替 。 
LLIST 

用 于 程序 的 打印 输出 ， 对 CP /M2.2 版 本 ， 要 求 先 执行 
DDT 命 令 〈 见 .前 面 的 介绍 ), 语法 与 L IST 类 似 。 
LOAD 

语法 格式 : 

LOAD :文件 名 >[, R ] 
用 于 把 磁盘 文件 引入 内 存 。 执 行 这 命令 后 ， 关 闭 目 前 在 内 存 
中 的 文件 ， 删 去 所 有 现 用 变量 值 。 命 令 最 后 面 的 参数 R 表示 
伐 盘 文件 中 程序 引入 内 存 后 ， 立 即 自动 运行 。 
LPRINT 和 LPRINT _ USING 

用 于 打印 机 上 输出 资料 的 命令 或 语句 ， 有 几 种 格式 ; 
电 LPRINT 


下 
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打印 一 空白 行 

@ LPRINT《〈 表 达 式 》 

打印 输出 表达 式 ， 最 多 可 打印 输出 132 个 字符 。 

人 LPRINT USING 《字符 串 表 达 式 》;， 《表达 
式 》 

这 种 形式 的 语句 指定 奏 达 式 的 输出 格式 ， 其 中 表达 式 可 
以 是 字符 串 或 数值 表达 式 。 格 式 中 的 字符 串 表 达 式 指定 了 输 
出 的 格式 : 

a) 输出 对 象 是 字符 串 时 

这 时 语句 中 的 表达 式 当 然 是 字符 串 。 字 符 串 表达 式 有 三 
种 ， 先 看 下 面 这 个 程序 和 运行 的 结 : 


二 D 后 吊 = 有 BCD ”3 下 亡 = 1 234SG67 

20 LFRINT USING :有事 5 甩 可 

9 LPRINT USING “ 章 吕 "和 从 囊 ; 及 囊 

4 LPRINT USING “日 " 从 唐 5 惠 圳 
SO LPRINT USING “ 避 日 "3 有事 ; 百 惠 
co LPFRINT USING “2& ”3 及 吊 ; 瑟 种 


全 

公民 1 公 

及 有 CD1T2S4 

人 闪 BCD ”124SO 
及 失忆 DIE 全 汉 入 与 白 7 


第 20 行 用 符号 “ ! ”指定 只 输出 字符 种 的 第 一 个 字符 ; 

第 30 行 用 “\\ ”指定 输出 字符 串 的 2 +n 个 字符 ， 在 这 
- 程序 行 中 mn= 0 ( 指 两 斜 杠 之 间 无 空格 )， 故 只 印 出 字符 串 的 
2 个 字符 ， 第 40 行 n= 2 ， 故 印 出 4 个 字符 ， 第 50 行 n= 4， 
指定 印 出 6 个 字符 ， 故 A 书 后 面 加 了 两 个 空格 输出 ， 第 60 行 


L) 有 的 打印 机 把 符号 \ 打 成 5 。 
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以 “&w 猎 定 原样 输出 字符 串 ， 
的 LPRINT 语 句 相同 。 


b) 输出 对 象 是 数据 时 


这 个 语句 与 打印 一 个 空白 行 


这 时 语句 中 的 表达 式 是 数据 表达 式 ， 字 符 串 表达 式 有 许 
多 种 形式 ， 看 下 面 这 个 程序 : 


1 心 
双 口 
本 
人 4 局 
与 已 
如 局 
7 
呈 局 
纪 口 


LPFRINT 
LFRINT 
LRPRINT 
LFPRINT 
LPRINT 
LFRINT 
LFPRINT 
LFRINT 


USING 
USING 
USING 
USING 
USING 
USING 
USING 
USINSG 


运行 输出 结果 ; 


7 人 总 人 5 目 。 
圭 忆 本 4 瑟 右 。 


二 DA+OS- 


审 二 呈 也 与 和 。7 呈 
种 1 之 卫 4 如 。 


了 人 不 一 二 莹 也 
了 7 和 9 


“ 林 井 井 - 提 
“ 捍 井 间 间 提 


全 亲王 二 全 到 4 与 如 .7 唱 9# :及 = 一 1 人 2 王 。 4 


井 " 和 全 井 ,号 
间 提 。 提 井 林 间 "3 全 林 ， 下 


“十 林 井 井 间 间 井 。 井 井 ” 内 井 。 下 


“其 其 持 提 提 
“种 囊 井 井 林 
” 关 美 囊 提 提 
“长 商 秽 提 提 


，“ 林 禁 。 提 村 


. 45 
一 12.4S00 


一 1 2 玉 。 人 4 与 


了 呆 凑 次 一 囊 1 2 4 


六 媳 与 丰 。 了 呆 关 关 关 一 囊 二 全 了 。 寻 与 
这 医 直 饭 妥 


提 井 。 提 间 ，; 全 井 ,下 

间 提 。 埋 提 "; 及 柯 。 互 

提 林 。 # 间 ”后 井 ， 也 

神 扩 。。 间 提 ”人 村 、 下 
有 间 ,日 


第 20 程 序 行 以 “并 ”的 形式 指定 数据 输出 格式 ,并 的 位 数 决 
定 输出 数据 的 位 数 ， 若 指定 位 数 不 够 用 ， 则 输出 数据 前 面 印 
出 符号 %， 小 数 则 按 指 定 的 位 数 四 舍 五 入 输出 ;第 30 程 序 行 
类 似 ， 指 定 的 小 数位 多 时 ， 和 输出 补 零 ， 第 40 程 序 行 增加 了 符 
号 “十 岂 使 正 数 输出 时 有 正 号 ， 第 50 程 序 行 以 符号 "关头 ? 指 
位 数 多 时 ， 和 输出 数据 前 面 标 以 关 号 ;第 60 程 序 行 以 


定 当 预定 
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符号 “$ 忆 ”指定 输出 数据 前 面 标 以 $ 号 ， 第 70 程 序 行 以 符 
输出 数据 前 面 标 以 头号 ; 
第 80 程 序 行 以 符号 “,” 号 指定 输出 数据 每 3 位 印 出 -一 个 逗号 
第 90 程 序 行 以 “个 个 个 个 ”指定 以 指数 形式 输出 数据 。 
规定 指定 的 数值 位 数 不 能 超过 24。 
LSET 和 RSET 

语法 格式 : 

LSET《 字 符 串 变量 > = 2 

RSET(〈 字 符 串 变量 = 《字符 串 表 达 式 》 

用 于 将 资料 从 内 存 中 移 至 随机 文件 缓冲 区 中 。 详 见 随机 
存 取 文 件 的 介绍 。 
MERGE  . 

语法 格式 : 

MERGE《 文 件 名 》 

引进 指定 的 磁盘 文件 ， 与 内 存 中 原 有 程序 连接 的 命令 。 
要 求 这 个 伐 盘 文件 原先 是 用 AS C TI 格式 贮存 的 。 若 磁盘 文 
件 中 行 导 与 内 存 中 程序 行 续 相同 ， 则 引入 程序 的 行 号 会 取代 
内 存 原 有 程序 的 行 号 。MFRGE 命 令 使 用 例如 下 。 磁 表 文 
件 QQQ .ASC 的 程序 为 : 

OO PRINTA= 

1tO LPRINT" = 

120 FOR TI=1 TO tt 


1SO LPRINT ”CT )= "人 ( 工 ) 
14C NEXT 


这 时 若 在 主机 内 存 中 键入 如 下 程序 : 


1 了 TIM 世人 二 》 
总 加 天生 PR 了 关于 下 口 于 
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卫 吕 CI) 三 工 
年 吕 NEXT 
写 O 从 
了 口 口 “及 王 忆 富 忆 


又 键入 直接 命令 MER GE xsQQQ .AS C 则 会 把 磁盘 
文件 引入 主机 ， 并 已 与 志 机 内 原 有 程序 相连 接 , 执行 LIST 
命令 ， 列 表 如 下 


1 DIM C(11) 

20 FOR I=l1 TO 11 

SO CI)=I 

409 NEXT 

SO A=lltil 

190 LRRINTY AN=23A 

1 LPFRINT“E= 3; 

12O FOR I=1 TO 11 

130 LPRINT'"C4"STIS2)="SCCI) 
TtL4G NEXT 


MID$ 

用 另 一 字符 串 代替 原 有 字符 串 的 一 部 分 ， 有 两 种 用 法 ; 

人 MID$ (字符 串 表 达 式 1》，N )= 《字符 串 表 达 
式 妆 忆 

表示 对 于 字符 串 表达 式 1 ， 从 第 N 个 字符 开始 ， 用 字符 
串 表 达 式 2 全 部 字符 来 替换 ， 要 求 荐 换 的 字符 长 度 不 可 多 于 
原 字符 串 表 达 式 ， 和 否则 截 去 多 余部 分 。 

@@ MID$ ( (字符 串 表 达 式 1》，N ，M) = 《字符 串 
表达 式 2 》 

表示 对 于 字符 串 表达 式 1 ， 从 第 N 个 字符 开始 ， 用 字 竺 
中 表达 式 2 的 M 个 字符 罕 换 。 
例如 以 下 程序 
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10 Ag$="1234567.99999" 
20 MID 囊 (A 囊 ,9) ="1239 

SO LPRINT"A 吊 =" 人 种 

40 MID 囊 (入 下,9,2)="45678" 
S50-LPRINT"A 囊 = "3 人事 


运行 则 打印 输出 ; 


有事 二 二 双 本 与 白 7 。 于 忌 本 9 
从 囊 = 工 忆 本 全 与 如 7 。44 瑟 本 9 


第 20 行 把 原先 的 A$ 蔡 换 了 三 个 字符 ;第 40 行 把 已 改变 了 的 
A 书 又 替换 了 二 个 字符 。 


NAME 
语法 格式 ， 
NAME 《〈 提 文件 名 》AS 《新 文件 名 》 
用 于 更 换 磁盘 文件 名 的 命令 。 
NEW 
清除 内 存 中 全 部 程序 和 变量 ， 与 APPLESOFT 语言 
法 相同 。 
NORMALL 
将 屏幕 转变 为 黑 底 白字 画面 的 命令 ， 常 与 INVER SE 
连用 。 
ON ERROR GOTO 
语法 格式 : 


ON ERROR GOTO (〈 行 号 》 
用 于 指定 程序 运行 中 出 错时 处 理 错 误 的 流程 的 语句 。 
ON.…GOSUB 和 ON.…GOTO 
语法 格式 ; 
ON 《表达 式 》” GOTO 〈《 行 号 1 ,《〈 行 号 2》 ,… 
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ON 《表达 式 》GOS UB 《〈 行 号 1?,( 行 号 2》,… 

(ON…GOS UB 后 的 行 号 ， 必 须 是 转向 程序 的 第 一 
个 语句 的 行 号 ) 

这 是 开关 型 语句 ， 根 据 表 达 式 的 值 (1,2,…) 决定 程序 
转向 的 行 号 ， 若 表达 式 的 值 为 零 或 大 于 行 号 群 的 个 数 ， 则 这 
语句 不 执行 ， 执 行 下 一 名 ;车 表达 式 的 值 大 于 255 或 小 于 零 ， 
则 出 错 ， 显 示 Illegal function call (调用 非法 函数 )。 


OPEN 
语法 格式 : 
OPEN《〈 “状态 交 >，[ 并 ] 《缓冲 区 号 码 》，《(〈 文 件 名 》. 
[记录 长 度 》] 


用 于 顺序 处 理 文 件 和 中 机 存 取 文 件 中 打开 文件 用 的 语 
句 。 详 见 顺 序 处 理 文件 和 随机 存 取 文 件 的 介绍 。 
OPTION BASE 

语法 格式 ， 

OPTION BASE an 

式 中 为 0 或 1。 指 定数 组 下 标的 最 小 值 ， 若 不 写 n ， 
表示 最 小 下 标 为 零 。 
PLOT 

语法 格式 ， 

PLOT 〈X 坐 标 >，《Y 坐标 》 

式 中 X， 立 均 为 整数 表达 式 ，0 委 X 委 39，0 委 Y 委 47。 这 
个 语句 用 于 低 分 辨 率 图 形 显示 ， 以 X，Y 坐标 定点 。 
PO 开 E 上 

语法 格式 ; 

P OKE 工 J 
式 中 工 ，j 都 是 整数 表达 式 。 0 县 1 委 65536, 0 委 ] 委 255 
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这 个 语句 把 内 容 J 写 进 主机 内 存 地 址 1 处 。 
POP 

语法 格式 : 

P OP 

这 个 语句 用 于 GOS UB 之 后 ， 无 法 返回 到 GOS UB 的 
下 一 个 语句 时 ， 用 它 使 流程 从 子 程序 中 返回 。 例 如 下 面 的 程 
序 和 输出 结果 

1 LPRINTEXAMFLE: 

20 GOSUB 100 

SO LPRINT2ABC2 

4D END 

1o00 GOSDUB 2200 

Tto LPFRINT2CBDE 

12Q RETURN 

200 POF 

2to RETURN 

EXAMPLE: 

ABC 
PRIIN 工 

用 于 屏幕 显示 资料 ， 有 多 种 使 用 格式 ,与 APPLESO- 
FE 语言 用 法 类 似 。 
PRINT USING 

滞 法 格式 ， 

PRINT USING (字符 串 表达 式 》， 《表达 式 》 

用 于 以 指定 格式 显示 数据 或 字符 中 ,用 法 与 LPRINT 
US TING 类 似 ， 可 以 参照 使 用 。 
PRINTIT 并 和 和 PRINT 共 USING 

语法 格式 ， 

PRINT 闪 《缓冲 区 号 码 》，《 表 达 式 》 
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PRINT 失 《缓冲 区 号 码 》，USING《 字 符 串 表达 
式 》; 《表达 式 ， 

详 见 顺序 处 理 文件 和 随机 存 取 文 件 的 介绍 
PUT 

语法 格式 : 

En [ 闪 ]《 缓 冲 区 号 码 》[,《〈 记 录 号 码 》] 

是 用 于 把 记录 从 随机 文件 缓冲 区 写 入 随机 文件 的 语句 。 
详 见 随 机 存 取 文 件 的 介绍 。 
RANDOMIZE 

语法 格式 : 

RANDOMIZE[《〈 表 达 式 》 ] 

用 于 产生 随机 数 的 语句 ， 若 不 写 表 达 式 ， 人 
暂停 ， 要 求 键盘 输入 ， 并 做 出 如 下 显示 : 

Random Number Seecd (一 32768 to 32767)? 

假如 键入 的 值 相同 ， 则 运用 RN D 函数 时 所 得 结果 也 相 
同 。 例 如 下 面 的 程序 : 

10 FOR J=l TO 

2Q RANDOMIZE 了 J 

SO FOR I=1 TO 4 

40 LPRINT RND， 

SO NEXT 


eD LFRINT 
7Z9 NEXT 


运行 后 输出 : 


.5eo41 -128928 .928324 3901162 
.89113 -454173 .881064 .4383S79 
.16B8S6 .784757 -665827 . 463432 


READ 
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语法 格式 
READ 《变量 》，《〈 变 量 》，… 
用 于 读 入 资料 的 语句 ， 必 须 与 DATA 语 名 配合 使 用 。 与 
APPLESOFT 语 言 用 法 相同 。 
自 M 
语法 格式 ; 
REM 《说 明 》> 
在 机 器 内 并 不 执行 操作 的 解释 性 语句 ,用 法 与 APPLE- 
SOFT 语言 相同 。 另 外 亦 可 把 说 明 放 在 单 引 叶 中 , 附 在 程 
序 行 的 后 面 ， 例 如 ; 
1C FOR I=1 TO 5 "THIS IS 后 STATEMENT 
2O PRINT II; 
DO NEXT 
REN UM 
改变 程序 行 号 的 命令 。 语 法 格式 ; 
RENUM II 新 号 码 》 ] [,[〈 归 号 码 )] [,《〈 增 量 》]]] 
@ RENUM 
把 程序 行 号 改变 为 以 10 开 始 ， 增 量 为 10 的 新 行 号 。 
@C RENUM 行 号 入 
把 程序 行 号 改变 为 以 行 号 X 开 始 ， 增 量 为 10 的 新 行 号 。 
人 @@ RENUM 行 号 久 ，， 增 量 Z 
把 程序 行 号 改变 为 以 行 号 X 为 开始 行 ， 以 Z .为 增 量 的 新 
行 号 。 
由 RENUM 行 号 X ， 行 号 Y， 增 量 Z 
把 原 程序 从 行 号 Y 开始 ， 改 变 为 行 号 X 开 始 ， 增 量 为 Z 
的 新 行 号 。 
RENUM 命 令 不 能 改变 程序 中 各 行 的 次 序 ， 行 号 不 能 
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vv 


超过 65529, 和 否则 显示 出 错 信息 。 
RESET 

语法 格式 ， 

RESET 

用 于 驱动 器 中 的 换 磁盘 之 后 ， 重 新 分 配 目录 资料 。 若 是 
换 了 磁盘 后 ， 不 键入 这 个 命令 ， 则 当 执 行 资料 存 入 磁盘 等 操 
作 时 ， 会 显示 出 错 信息 : DISK READ ONLY (磁盘 


”只 读 )。 
换 磁盘 的 正常 步 又 应 该 是 : 
a) 键入 CLOSE 命令 ， 以 关闭 所 有 文件 ; 
b) 换 入 新 磁盘 ; 
c) 键 和 RESET 命 令 。 
RESTORE 
”语法 格式 : 


RESTORET[《〈 行 号 》] 

用 于 数据 恢复 的 语句 ， 用 法 与 APPLESOFT 语 言 
同 。 
RESUME 

用 于 检查 出 错误 后 ， 继 续 执行 程序 的 语句 。 有 多 种 语法 
格式 : 

GD RESUME 或 RESUME 0 

在 发 生 错误 的 地 方 恢 复 执行 程序 。 

四 RESUME NEXT 

在 发 生 错误 的 下 一 行 恢复 执行 程序 。 

转 RESUME (〈 行 号 )》 

在 指定 的 行 号 处 恢复 执行 程序 。 
例如 以 下 程序 : 
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10 ON ERROR GOTO 1obo 
号 口内 = 一世 

芭 所 CC= 有 /下 

了 4 FRINT"A=13 有 

100 RESUME NEXT 


运行 显示 : A 三 123 


这 语句 与 APPLES OFT 语 言 用 法 不 同 。 


RUN 


这 是 运行 程序 的 命令 ， 有 多 种 语法 格式 ， 

@ RUN 

从 头 开始 运行 程序 。 

@ RUN 《〈 行 号 》 

从 指定 行 号 开始 运行 程序 。 

图 RUN “磁盘 文件 名 ” 

先 关闭 所 有 打开 的 文件 ， 然 后 从 磁盘 调 入 指定 文件 ， 立 


即 自动 运行 。 


图 RUN “磁盘 文件 名 %R 
调 入 指定 的 磁盘 文件 运行 ， 所 有 打开 的 资料 文件 仍 再 打 
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将 程序 存 入 磁盘 的 命令 ， 有 三 种 语法 格式 
@ SAVE “文件 名 ?” 

将 指定 文件 存 入 磁盘 ， 存 入 的 是 二 进 制 格 式 。 

四 SAVE “文件 名 风 A 

将 指定 文件 以 AS C II 格式 存 入 磁盘 ， 这 种 存 入 格式 占 
空间 较 大， 但 可 用 于 MERGE 及 LIST 命 令 等 。 


图 .SAVE“ 文 件 名 %P 

将 指定 文件 以 二 进 制 格式 存 入 磁盘 ， 并 进行 保护 。 这 时 
_ 可 以 调 入 这 个 文件 ， 或 用 运行 文件 命令 把 它 从 磁盘 调 入 立即 
运行 ， 但 是 只 能 显示 运行 结果 ， 无 法 修改 或 用 LIST 命 令 列 
要 
STOP 

语法 格式 : 

STOP 

用 于 暂停 执行 程序 ， 回 至 OK 状态 ， 若 键 和 AQ ONT 则 
继续 执行 。 与 APPLES OFT 语 言 用 法 相同 。 
SWAP 2 

语法 格式 : 

SWAP 《变量 》 ，《 变 量 》 

用 于 将 两 个 变量 的 值 互相 交换 的 语句 。 例 如 程序 : 


1 局 内 = 王 1 及 =3939 


20 LPFRINT"A= "SA 
SO LFRINT"E= "5 日 
40 LPRINT 


50 SWAPF ABR 

60 LFRINT"A="3A 

70 LPRINT"B="5B 
运行 后 输出 ; 


A= 111 
B= 999 


和 = 999 
B= 1411 


SYSTEM 
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语法 格式 

SYSTEM 

用 于 关闭 所 有 文件 ， 回 至 CP /M 控 制 下 的 命令 。 
T 刁 X 工 

语法 格式 

下 世 和 XT 工 

用 于 从 图 形 显示 回 到 文本 显示 〈24 行 ，40 列 ), 从 低 分 辩 
图 形 返 回 TEXT 时 ， 能 清除 画面 。 
TRACE/NOTRACE 

语法 格式 ， 

TRACE 

NOTRACE 

TR ACE 为 进入 跟踪 ，NOTR ACE 为 消除 TRACE， 
退出 跟踪 ， 可 以 用 命令 或 语句 形式 ， 用 于 程序 调试 。N E W 
可 以 代替 NOTR ACE。 
VLIN 

语法 格式 : 

VLIN 《Y1 坐 标 》，《〈《Y2 坐 标 》AT 《X 坐标 》 
式 中 0 和 Y 1 和 47，0 委 YY2 和 47，0 近 X<39 

用 于 低 分 辨 图 形 显 示 时 ， 从 点 (X,Y1) 至 点 (X,Y2) 
画 一 条 垂 线 ，Y 1 必须 入 Y 2， 颜 色 由 刚才 执行 的 COL OR 
语句 决定 ， 在 TEXT 状态 或 图 形 .文字 混合 状态 ， 画 出 的 是 
字符 组 成 的 线 。 

例如 画 一 条 垂 线 的 程序 ; 

19 GR 


20 COLQR=3 
SO YLIN 1.47 AT 20 
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VTAB 

语法 格式 ， 

VTAB 《屏幕 行 号 》 
用 于 将 光标 移 到 指定 的 屏幕 行 的 命令 或 语句 ， 屏 幕 共 24 
行 ， 例 如 VTAB 5 指 将 光标 移 到 第 5 行 ， 若 屏幕 行 号 超过 
24， 则 将 该 数 除 24 后 所 得 余数 即 为 指定 的 行 ， 如 VTAB30 
则 指定 光标 移 到 第 6 行 ;， 若 屏幕 行 号 超过 255, 则 显示 出 错 信 
息 : 

1ILLEGAL FUNCTION CALTL 
WAIT 

语法 格式 : 

WAIT 地址 )，L[，J] 
其 中 I ，」 是 整数 表达 式 ， 若 不 写 上 」 ， 则 表示 」 值 为 零 。 

这 个 语句 用 于 检查 地 址 状态 时 ， 程 序 暂停 运行 。 
WHILE…wEND 

语法 格式 : 

WHILE《 表 达 式 》 


[《 循 环 语句 >] 


WEND 
这 是 控制 是 否 执行 循环 的 语句 ， 表 达 式 不 为 零 时 ， 则 执行 循 
环 ， 然 后 从 WEND 语句 回 到 WHTLE 下 ， 再 用 表达 式 判 断 ; 
若 表 达 式 为 零 ， 则 执行 WE N D 后面 的 语句 ,WHT LE.,， 
WEFEND 可 以 嵌 套 使 用 。 例 如 程序 : 
开间 ” 闪 三 福 


习 D WHILE 训 
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3O FOR TI=1 TO 
姬 口 LFRITINT 4 

豆 吕 EXT 

号 SS LPRINT 

如 担 “ 礁 二 三 一 二 

7D NEND 

BO LFRINTJIUMP 


运行 则 输出 : 
1 a 3 4 5 
1 2 本 4 5 
和 
JUMF 
WIDTH 


用 于 指定 屏幕 显示 行 宽 及 高 度 或 打印 机 输出 的 行 宽 的 命 
令 或 语句 ， 格 式 如 下 : 

@ wIDTH [( 行 宽 )] ，[《 屏 幕 高 度 )] 

指定 屏幕 显示 行 宽 及 高 度 。15 入 行 宽 入 255,， 1 过 屏幕 高 
度 和 24， 对 APPLE 屏幕 ， 语 句 格 式 中 省 略 行 宽 ， 则 行 宽 自 
动 定 为 40 ， 省 略 屏 幕 高 度 ， 则 屏幕 高 度 自 动 定 为 24。 

@ WILDTH LTLPRINT《 行 宽 》 N 
指定 打印 输出 的 行 宽 。15 委 行 宽 委 255 
WRITEE 

语法 格式 ; 

WRITEL[ 表 达 式 >] 
用 于 在 终端 输出 资料 的 命令 或 语句 。 

WRITE 显示 一 个 空 行 。 

WRITE《 表 达 式 》，《 表 达 式 》，… ”将 把 各 表达 式 
的 值 显示 出 来 ， 中 间 自 动用 逗号 隔 开 ， 字 符 串 用 引号 括 出 。 
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例如 以 下 程序 ， 

总 ”全 了 及 = 白 已 机 一人” 

2 WRITE 和。 已 。C 训 
运行 显示 : 3,6，“A7? 
WRITE 并 

语法 格式 

WRITE 闪 “《〈 缓 章 区 号 码 》，《 表 达 式 》，《〈 表 达 
式 》 ，… 

详 见 顺序 处 理 文件 和 随机 存 取 文 件 的 介绍 。 

3.6.6 顺序 处 理 文件 
建立 缓冲 区 

MBASIC 程 序 中 控制 资料 在 磁盘 上 的 存 取 方 法 与 
APPLESOFT 不 同 。 首 先 要 设置 输入 输出 缓冲 区 ， 也 
即 等 待 区 的 意思 ， 所 有 进出 磁盘 文件 的 资料 都 必须 经 过 这 个 
缓冲 区 ， 一 般 说 来 ， 程 序 中 同时 使 用 多 少 个 文件 ， 就 需要 建 
立 多 少 个 缓冲 区 。 在 前 面 的 3.6.1 中 介绍 的 进入 MBASIC 
的 工作 方式 ， 就 有 指定 允许 同时 使 用 多 少 个 文件 ， 也 即 建立 
多 少 个 缓冲 区 的 命令 ， 如 ; 
A >MBASIC 《CRy> 
这 时 进入 的 MBASIC 操作 方式 ， 指 定 建立 3 个 缓冲 


A>》MBASIC/F: 文件 数目 

这 时 进入 的 MBASIC 操作 方式 ,指定 建立 了 所 标 “ 文 
件数 目 ” 的 缓冲 区 。 其 中 文件 数目 可 取 1 与 15 之 间 的 一 个 整 
数 。 每 个 缓冲 区 在 内 存 中 需 占 200 多 个 字 节 ,建立 的 缓冲 区 数 
目 越 多 ， 所 占 内 存 空间 也 越 大 ， 因 此 必须 根据 具体 情况 适当 
指定 多 少 个 缓冲 区 。 交 
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顺序 处理 文件 方式 存 取 资 料 

顺序 处 理 文件 存 取 资 料 方式 的 概念 与 APPLESOFT 
类 似 ， 即 是 按 资料 的 排列 次 序 顺 序 存 取 ， 但 程序 编制 是 不 同 
的 。 

@@ 打开 文件 语句 

存 取 文 件 之 前 先 要 打开 文件 ， 格 式 是 ; 

OPEN“ 存 取 类 型 >,[ 并 ] 缓 冲 区 编号 “文件 名 称 ” 

其 中 “ 存 取 类 型 ”指定 了 存 取 类 型 ,“O "为 存 ,“I ?为 取 
(都 指 顺 序 处 理 文件 ); 缓冲 区 编号 指定 了 文件 所 用 缓冲 区 ， 
“文件 名 称 ” 指 这 个 顺序 处 理 文件 的 名 字 。 例 如 ， 

10 OPEN “0”，2，“ABC. TXT 

指 为 了 建立 顺序 处 理 文件 ， 使 用 2 号 缓冲 区 ， 打 开 文 件 
ABC. TXT，, 若 原 先 这 个 文件 已 存在 , 则 把 原先 内 容 删 除 。 

关于 OPEN 语句 ， 有 几 点 要 注意 : 

a) 缓冲 区 被 OPFN 语句 打开 后 ， 就 不 能 再 在 别 的 
OPEN 语句 中 使 用 ， 须 先 关 闭 (CLOSE ) 文件 , 这 个 组 
冲 区 才能 另 作 它 用 。 

b) 顺序 输入 (I ) 的 一 个 文件 可 以 设置 多 个 缓冲 区 ,但 顺 
序 输出 (O ) 的 每 个 文件 只 能 设置 1 个 缓冲 区 。 

@@ 关闭 文件 语句 

被 打开 文件 用 完 之 后 必须 关闭 ， 否 则 可 能 会 丢失 资料 。 
关闭 文件 的 语句 格式 ， 

CLOSE 缓冲 区 编号 ， 缓 冲 区 编号 ，… 

若 不 指定 缓冲 区 编号 ， 则 为 关闭 所 有 文件 。 另 外 在 执行 
了 NEW，RUN，MERGFE，CLEAR 等 命令 ， 或 删 
改 了 文件 中 的 某 个 程序 行 ， 或 增删 了 某 些 程序 ， 或 磁盘 错误 
(磁盘 已 满 的 错误 除外 ) ， 都 会 自动 关闭 所 有 文件 。 


203 


填 PRINT 失语 名 
这 是 把 资料 写 入 文件 的 语句 ， 格 式 是 ; 
PRINT 并 缓冲 区 编号 ， 表 达 式 ， 表 达 式 … 
表达 式 值 计 算 结果 ， 能 顺序 扎 入 指定 缓冲 区 的 文件 内 。 
有 几 点 注意 ; 
a) 用 PRINT 李 语 句 写 入 的 数据 是 ASCTI 代码 格式 ， 
在 C P7 M 操 作 方式 (A 》) 下 可 用 直接 命令 TYbPRF 调 出 显 
未 。 而 且 在 磁盘 里 建立 的 信息 格式 与 PRINT 语 名 在 显示 屏 
上 输出 格式 相同 ， 所 以 为 了 节省 磁盘 空间 ， 表 达 式 之 问 最 好 
用 分 号 隔 开 。 
b) 若是 把 几 个 字符 串 写 入 文件 ,要 求 字 符 串 变量 之 问 用 
分 隔 符 逗号 或 分 号 隔 开 。 若 字符 种 中 包含 逗号 , 则 在 PRL- 
NT 和夫 语句 中 应 该 用 引号 CHR $ (34) ,把 字符 串 两 边 括 起 
来 ， 例 如 : 
PRINT 井 1 CHR$ 034) AS$， CUR 和 (034)，B$ 
c) 当 所 有 PRINT 闪 语 名 执行 完毕 时 ， 要 使 用 CLO- 
“语句 来 关闭 文件 。 
全 ENPU 个 林 语 句 
这 是 从 磁盘 文件 顺序 污 进 资料 的 语句 ， 格 式 是 : 
[NPUT 并 缓冲 区 编号 ， 变 量 ， 变 量 ……: 
以 下 用 一 些 例子 来 说 明 上 述 语 句 的 使 用 方法 ; 
例 一 ， 建 立 顺 序 处 理 文 件 


S 


一 


半 间 全 囊 = 全 及 引 口 ” 

刀 刘 也 事 二 寺 妆 本 全 

六 全 人 要 EN “加 ”和 埋 了 会 T 人 一口” 
母 站 站 RINT 井 二。 再 操 囊 

已 LOSE 
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， 这 个 程序 把 两 个 字符 串通 过 缓冲 区 1 号 存 入 顺序 处 理 文 
件 DATA-0 ， 字 符 串 变量 间 用 分 号 隔 开 ， 能 节约 所 占 磁 盘 
空间 ， 中 间 的 带 引 号 的 逗号 是 分 隔 两 个 字符 串 必 不 可 少 的 。 

例 二 ， 读 取 顺 序 处 理 文 件 


OFEN ” 工 ” 亲人 下 :了 D 人 本 人 一口 “ 
INFUT # 悦 。C 囊 。，D 利 
CLOSE 


DLPRINT C 币 ,也 刘 


认 EBCD 于 关 个 


这 个 程序 通过 缓冲 区 2 号 ， 把 顺序 处 理 文 件 DATA-0 


中 的 内 容 


容 读 取出 来 (程序 下 面 是 运行 结果 ) 。 


例 三 ， 资 料 在 磁盘 上 存 贮 格式 


10O 
信 品 
也 台 
口 


对 品 


台币 六 上 六 BCR 
BE 事 = "工人 本 4 


OFEN "0"，#1"BsDATA-1， 
FRINT#1 ,后 币 ，E 惠 
CLOSE 


第 40 行 存 A$ 与 B$ 之 间 没 有 加 分 隔 符 ', ”在 磁 稚 上 这 
两 个 字符 串 连 接 在 一 起 了 。 

然后 用 下 面 的 程序 从 顺序 处 理 文件 DATA-1 中 把 存 入 
的 字符 串 取 出 来 : 

二 吕 FEN 工 和 妆 下 和 D 台 了 内 一 二 

习 人 工 NFUT 间 全 记事 


23O CLOSE 
号 口 上 FRINT C 刘 


古 RCD 工会 汉 寻 
第 20 行 只 用 一 个 字符 串 变 量 C$ 即 把 DA 个 A-l 中 的 内 
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容 取出 来 了 ， 事 实 上 ， 若 是 用 两 个 变量 取 资 料 ， 就 会 因 资 料 
不 够 而 出 错 ， 因 为 在 存 字符 串 的 时 候 ， 这 两 个 字符 串 已 合并 
为 一 个 了 ， 又 因为 存 入 时 变量 之 间 又 用 逗号 分 隔 , (注意 不 能 
用 分 导 ， 字 符 趾 将 完全 连 在 一 起 ， 中 间 没 有 空格 ) 所 以 合并 
的 字符 串 间 仍 有 许多 空格 。 

例 四 ， 包 含有 逗号 等 字符 的 字符 串 存 入 顺序 处 理 文件 

让 所有 囊 二 及 本 4456 

20 OPEN "0 49"B3DATA-21 


了 人 户 只 工 NT 得 HR 种 (本 4) 从事 CHR 事 (34)》 
40 LLOSE 


前 面 已 经 说 过 CHR$ (34) 是 ASC1JTL 代码 形式 的 双 引 
号 ， 第 30 行 把 带 逼 号 〈 或 分 号 或 空格 等 ) 的 字符 串 存 入 顺序 
处 理 文件 DATA-2 时 ， 两 面 用 CHR $ (34 ) 括 了 起 来 。 下 
面 这 个 程序 又 从 DATA-2 中 取出 了 存 入 字符 串 ; 

1 OPEN ”TI 21B3 DAT 有 -2 

妇 人 工 人 PUT 了 了 # 辽 ， 己 圳 


SO CLOSE 
4 口 PRINT CC 种 


”运行 输出 ; 

123,， 456 

例 五 ,LINE INPUT 共 的 用 法 

10 OPFEN "IT 2 "BR3DATA-O9" 

四 LINE INFUT 间 呈 ， 尼 囊 

要 人 LODSE 

媳 吕 上 FRITNT 己 囊 

在 例 一 中 建立 了 DATA-0 文件 ， 包 含 两 个 字符 串 ， 上 
面 程序 中 用 LINE INPUT 失 语句 从 DATA-0 中 取 内 
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容 ， 运 行 输出 : 

ABCD，1234 
可 知 LINE TNPUT 共 语句 与 LINE INPUT 语 句 类 
似 ， 是 把 整个 可 输入 字符 串 全 部 输入 。 

例 六 ， 数 据 存 取 


10 READ NX 
20 OPEN "D"， 养 1。" 有 DATA- 人 " 
30 FOR IYX=1 TO NX 

49 READB XyY 

SO PRINT#1，X，Y 


60O NEXT 

70 CLOSE 

100 DATA 10 

110 DATA 1.1,5.1,1.2,5-.2,.1.3,5-.S,1.4,5.4,1.5,5.5 
120 DATA 1.6,5.6.1.7,5.7,1.Ss,5.B,1.9,5.9,2.1,6.1 


这 个 程序 建立 了 顺序 处 理 文件 DATA -3， 其 中 存 20 个 
数据 。 下 面 程序 从 DATA-3 中 取出 数据 ; 

1 REE 难 DDN - 

人 (FEEN 工 ” 音 让 下 站 且 T 有 一 汪 

SC FOR IZY=1T TO NZ 

40 INFUT #1 有 ,已 

号 吕 LPRINT 请, 下 

加 ONEXT 

7D LPRRINT LOCC1L) 

名 口 CLOSE 


93 AT 16 
1 互 。1 
二 之 写 。 
夺 。 六 S 
1 ,4 与 。4 
二 。 与 本 
夺 。e 呈 如 
1 。7 与 。7 
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- 强 
“ 
1 


他 避 属 
二 井 各 


hh 一 


其 中 70 行 用 到 了 LOC (缓冲 区 号 码 ) 函数 ， 即 要 求 打开 文 
件 后 打印 输出 读 出 的 扇 区 数 〈 这 里 扇 区 数 = 2 ), 类 似 在 建立 
顺序 处 理 文件 时 找 出 写 入 的 扇 区 数 。 

例 七 ， 同 时 建立 几 个 文件 

为 要 同时 建立 几 个 文件 ， 就 必须 打开 几 个 缓冲 区 。 


10 READ NX 
20 DOPEN "D"，#1，"B:DATA-S5" 
3O GPEN "D"， 间 2，"Bs DATA-6" 
40 FOR IX=1 TO NX 
SC READ X,Y 
0 PRINT#1，X 
7O _ PRINT#2，Y 
BO NEXT 
90 CLDSE 1,2 
100 DATA 10 
110 DATA 1.1,5.1,1.2,5.2,1.3 
120 DATA 1.6,5.6,1.7,5-.7,1.8 


通过 这 个 程序 ， 把 X 与 了 分 别 存 入 两 个 不 同 的 文件 。 

另外 亦 可 用 WRITE # 代 替 PRINT ## 把 资料 存 入 顺 
序 处 理 文件 ， 格 式 是 ， 

WRITE # 缓冲 区 号 码 ， 表 达 式 ， 表 达 式 ，… 

它 的 特点 是 写 入 磁盘 的 资料 之 间 会 自动 加 入 逗号 ， 若 次 
料 是 字符 种 ， 则 会 写 入 引号 。 
在 顺序 处 理 文件 中 增加 资料 

由 于 顺序 处 理 文件 中 存 取 资 料 是 按 次 序 进行 的 ， 存 资料 
用 型 号 “O 风 了 到 资 料 用 “I 岂 类 型 不 同 ， 所 以 在 文件 中 增加 
资料 就 比较 麻烦 ， 步 又 是 ; 
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a) 在 “|[ ”状态 下 打开 原文 件 ; 
b) 在 “O” 状 态 下 打开 一 个 过 渡 文 件 ; 
c) 从 原文 件 读 资 料 ， 写 入 过 渡 文件 ; 
d) 关闭 原文 件 ， 并 删除 ; 
) 把 增加 的 资料 写 入 过 渡 文件 ; 
f) 关闭 过 渡 文件 ， 并 把 过 渡 文件 换 名 为 原文 件 名 。 
这 时 这 个 文件 中 已 增加 了 资料 。 
例如 下 面 的 程序 建立 了 顺序 处 理 文件 DATA=4。 
te QFPEN 09 2 BR3DATA 一 4” 
20 FOR I=t TO 5S 
口 READ X 
4 FRINT 井 之 ，X 
SC NEXT 


GD CLOSE 
10O DATA 了 4 2 日 6 一 人 1 吕 


已 


现在 DATA-4 中 有 5 个 数据 ， 要 求 再 增加 一 批 数据 。 下 面 
这 个 程序 〈 例 八 ) 就 是 在 DATA-4 中 增加 资料 的 程序 : 


，10 OPEN "1T"，1,"B:DATA-4" 
2G OPEN "0" ,2,"B:COPY" 
30 IF EOF(1) THEN 7O 
40 INPUT#1，X 
SG PRINT# 人 ,X 
-60 SG0TO xXO 
7O CLOSE 1 
BO KILL "Rs:DATA--4" 
9 FOR I=1 TO 6 
1GC READ X 
110 PRINT 提 ，USING “向 囊 打 和 和 打 钉 。 林 林 "X 
120 NEXT 
130 CLOSE 
140 NAME "BE:COPY"” AS “"B:DATA-4" 
xs0Q DATA -1266.-56,443524.11,-2897.67,xS3S,-22..1.67-745 
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第 10 行 打开 原文 件 为 了 读 ， 第 20 行 建立 过 湾 文 件 C OP Yi 
第 30 行 使 用 EOF (缓冲 区 编号 ) 国 数 ， 这 个 函数 能 够 检查 
文件 是 否 结束 ， 若 文件 已 结束 ， 函 数 取 真 值 ， 否 则 取 假 值 ， 
有 了 这 个 函数 ， 这 个 程序 就 能 顺利 执行 ;第 70 行 只 关闭 原文 
件 : 第 80 行 删除 原文 件 ， 第 90 一 120 行 在 过 渡 文 件 中 增加 资 
料 ， 其 中 第 110 行 用 了 格式 语句 ， 与 PRINT US ING 用 
法 类 似 ; 第 140 行 把 过 渡 文 件 名 字 改 为 原文 件 名 ， 达 到 了 在 原 
文件 中 增加 资料 的 目的 。 有 
现在 要 检查 这 个 文件 中 是 否 确 实 增加 了 资料 ， 当 然 可 以 
编 一 个 程序 来 做 到 这 一 点 ， 但 是 更 简单 的 办 法 是 键入 SYS- 
TE M 命 令 ， 使 回 到 提示 符 A 》， 再 键入 TYP 忆 命令 由 
于 顺序 处 理 文件 中 资料 是 按 A S C II 格式 存 贮 的 ， 这 时 衣 会 
把 所 有 资料 输出 ， 如 下 : 
相 


23 
8B6 
一 21 
们 
~ 囊 1266。56 
审 44S24.10 
~ 种 2897 .67 
审 S3S。 OO 
一 下 22.10 
种 67 。 75 


3.6.7 随机 存 取 文 件 
特点 

随机 存 取 文 件 的 存 取 格式 与 APFLESOF 了 语言 类 似 ， 
主要 是 : 

中 随机 存 取 文 件 中 按 文件 记录 号 存 取 资 料 ， 存 取 速 度 
快 ， 修 改 文 件 和 存 取 个 别 数 据 灵 活 方便 。 
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@) 随机 文件 以 密集 的 二 进 制 格式 存 贮 资料 ,所 占 磁 盘 容 
量 较 少 。 
建立 随机 存 取 文 件 的 程序 格式 . 

例 九 ， 把 字符 串 存 入 随机 文件 

10 A 和 = "ABCDE": B 囊 = "123" 

20 GOPEN "R"，#1，"B:DATA-1.TXT" 

30 FIELD#1， 各 AS X 利 ,5 AS YY 市 

40 LSET X 利 = 有 

5@ LSET Y 囊 = 了 市 

60 PUT 1，2 

70 CLOSE 1 


第 20 行 是 打开 文件 的 命令 。 建 立 随机 文件 之 前 也 必须 先 
打开 文件 , 类 型 用 R ”缓冲 区 编号 任 选 ， 后 面 指出 文件 名 ， 
还 可 跟 记录 长 度 项 ， 故 打开 文件 的 格式 是 : 

OPEN“R2” [#] 缓 冲 区 编号 ,文件 名 风 记录 长 度 

由 前 面 3.6.1 中 介绍 可 知 ， 在 进入 MB AS IC 工作 方式 
时 已 预定 了 随机 文件 的 记录 长 度 ， 如 ， 

A>MBASICCCR》 

即 进 入 MB AS IC 工作 方式 ,指定 的 随机 文件 的 每 个 记 
录 长 度 是 128 个 字 节 。 

AMBASIC /S :记录 的 最 大 长 度 CCR》 

这 时 进入 MBASIC 工作 方式 , 指定 了 随机 文件 每 个 记 
录 的 最 大 长 度 。 

因此 在 随机 文件 打开 时 (OPEN 语句 )， 所 指 记录 长 度 
不 能 超过 进入 MBASIC 工作 方式 时 已 指定 的 记录 长 度 ， 

"车 OP EN 语句 中 不 写 明 记录 长 度 ， 这 时 指定 的 记录 长 度 就 
是 进入 MBASIC 工 作 方式 时 已 确定 的 记录 长 度 。 

缓冲 区 编号 的 用 法 与 顺序 处 理 文件 一 样 ， 前 面 可 标 符号 

并 ， 也 可 不 标 。 
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第 30 行 FIELD 语句 把 缓冲 区 划分 为 区 段 ， 以 便 存 放 
资料 ， 例 如 这 个 程序 中 ， 开 头 6 个 字 节 命名 为 X$$， 随 后 5 
个 字 节 命名 为 Y$ ， 剩 下 的 其 它 字 节 没有 用 到 。F IEL D 语 
名 的 格式 是 : 

FIELD 缓 冲 区 编号 ,长度 1 AS 区 段 名 1, …: 

关于 FIEL D 语 句 要 注意 ; 

@@ 可 以 多 次 使 用 FIELD 语 句 ， 以 便 在 缓 钟 区 的 同 -. 
区 域 中 ， 组 织 不 同 的 区 段 ， 例 如 

30FIELD1,60AS X$ 

40FIELD1,50AS A$，10AS B$ 
表示 1 号 缓冲 区 , X$ 区 段 为 60 个 字 节 ， 但 厅 组 织 两 个 区 段 ， 
Ag$ (50 字 节 ) 和 B $ (10 字 节 )。 

轩 区 段 名 只 代表 FEIELD 语 句 设 置 的 缓冲 区 区 段 ， 不 
再 具有 “字符 串 变 量 ” 含 义 ， 若 在 以 下 程序 的 赋值 语句 左面 重 
复 使 用 缓冲 区 区 段 名 , 则 它 就 不 再 是 缓冲 区 区 段 名 ,FIELD 
语句 即 失效 。 可 

第 40 行 和 50 行 的 L S 下 下 语句 把 字符 串 放 入 缓冲 区 区 段 
里 。L S 下 个 语 句 的 格式 : 

LS 瑟 了 区 段 名 = 字符 串 数 据 


.LSET 语 句 是 把 字符 串 数 据 从 左面 开始 放 到 缓冲 区 区 段 中 


去 的 , 若 字符 串 长 度 小 于 区 段 长 度 , 则 区 段 里 右面 填 满 空格 ; 
若 大 于 区 段 长 度 ， 则 将 右面 多 余 的 字符 去 掉 。 

另 有 R S 已 了 语句 , 也 可 把 字符 串 放 入 缓冲 区 的 区 段 中 ， 
格式 是 : 
R SET 区 段 名 = 字符 串 数据 
RSET 语 句 把 字符 串 数据 放 入 缓冲 区 的 区 段 的 格式 与 LS - 
已 T 稍 不 同 ， 当 字符 串 长 度 小 于 区 段 长 度 时 ， 在 左边 填 满 空 
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格 。 
当 把 数值 存 入 随机 文件 时 ， 先 要 把 数值 转换 为 字符 串 才 


行 ， 对 于 不 同类 型 的 数值 有 不 同 的 转换 函数 : 

MKD 有 $〈 数 表达 式 ) 函数 把 双 精 度 的 值 转换 成 8 个 字 
节 的 字符 串 。 

MK S $ 〈 数 表达 式 ) 函数 把 单 精 度 值 转换 为 4 个 字 节 
的 字符 串 。 

MKI 书 〈 数 表达 式 ) 函数 把 整 型 值 转 换 为 2 个 字 节 的 
字符 串 。 

第 60 行 PUT 语句 把 指定 缓冲 区 的 内 容 写 入 磁盘 文件 ， 
并 指定 记录 号 ， 格 式 是 : 

P UT 缓 冲 区 编号 ， 记 录 号 1 
若是 语句 中 省 略 了 记录 号 ， 则 使 用 的 是 当前 的 记录 号 ， 第 一 
次 存 取 文 件 时 ， 当 前 的 记录 编号 为 1 ， 以 后 每 执行 一 次 省 略 
记录 号 的 P U 了 语句 〈 或 G 下 个 语句 ) 都 便当 前 的 记录 编号 


自动 加 1 。 

第 70 行 为 关闭 文件 语句 ， 用 法 与 顺序 处 理 文件 相同 。 
取 随 机 存 取 文 件 的 程序 格式 

例 十 ， 从 随机 文件 中 取出 字符 串 

14Q GESN "R"#2， BIDATA-1L. TXT' 

2Q FIELD #2;， 6 AS Ms 后 ,SS AS RN 本 

SG GET ##2，2 

436 LPRINT 几 定 ，N 本 

soG CLOSE 


第 10 行 和 20 行 与 建立 随机 文件 时 相同 ;第 30 行 用 GET 
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语句 从 磁盘 文件 中 读 出 一 个 指定 记录 ， 把 其 内 容 放 入 指定 的 
缓冲 区 里 ， 格 式 是 : 
G 屯 工 缓冲 区 编号 ， 记 录 号 
GE 2 与 PUTT 语 句 相 同 。 
是 要 把 某 随 机 文件 中 存 的 数据 取出 来 ， 则 必须 使 用 字 
入 转 拉 时 的 画 关 《后 十 中 没有 要 到 电气 123 的 上 
是 字符 串 ) 。 
CVD (区 段 名 ) 函数 能 把 指定 区 段 里 的 8 个 字 节 的 字 
符 串 转换 成 双 精 度数 值 。 指 定 区 段 里 的 字符 串 的 长 度 必 须 等 
于 8 ， 若 小 于 8 ， 则 出 错 ; 若 大 于 8 ， 则 只 取 前 8 个 字符 。 
， 力 数 CVD 与 MK D $ 函 数 的 转换 过 程 正好 相反 。- 
CVS (区 段 名 ) 函数 把 指定 区 段 里 的 4 个 字 节 的 字符 
串 转换 成 单 精度 值 。 指 定 区 段 里 的 字符 串 的 长 度 必 须 等 于 4 ， 
若 小 于 4 ， 则 出 错 ; 若 大 于 4 ， 则 只 取 前 4 个 字符 。CV S 
函数 与 MK S $ 函 数 的 转换 过 程 正 好 相反 。 
CVI( 区 段 名 ) 函数 把 指定 区 段 里 的 2 个 字 节 的 字符 虽 
. 转换 成 整 型 数值 。 指 定 区 段 里 的 字符 串 的 长 度 必须 等 于 2 ， 
若 长 度 小 于 2 就 出 错 ; 若 大 于 2 , 则 只 取 前 2 个 字符 。CVI 
函数 与 MK I$ 函数 的 转换 过 程 正 好 相反 。 
有 关 随 机 文件 的 程序 例 
例 十 一 ， 把 数据 存 入 随机 存 取 文 件 
下 面 的 程序 在 随机 文件 D ATA-2. TXT 中 存 入 10 个 
数据 〈 单 精度 数 ): 


本 Oo OPEN "”R”":#1"B:DATA-2.。 了 XT2 
<QO FIELD #1 ,4 AS 从 囊 ， 4 入 S 日 市 
SO FOR I=1 TO 忆 

40 READ XyY 

SO LSET As 和 =MKS 囊 (X) 
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6G LSET 日 币 =MKS 第 (Y) 
-7O PUT #| 
BC NEXT 
50 CLOSE ; 
200 DATA 3426。.84，-B324。 34 和 3135.2， -78,44. 日 
210 DATA -9.86,2564.21,-0.87,32.19，-99.86 
第 10 行 打开 随机 存 取 文 件 DATA-2.TXT， 第 20 行 
FIELD 语 句 把 1 号 缓冲 区 划分 为 区 段 ,开头 4 个 字 节 命名 
A 下 ， 随 后 4 个 字 节 命 名 日 蔬 ， 当 然 这 两 个 长 度 之 和 不 能 超 
过 进入 MB ASI C 时 预先 指定 的 记录 长 度 ; 第 50 行 和 60 行 “ 
先 通过 MK S 册 函 数 把 数据 转换 为 4 个 字 节 的 字符 串 ， 分 别 
放 到 缓冲 区 的 区 段 中 去 ， 第 70 行 把 1 号 缓冲 器 里 内 容 存 入 当 
前 的 1 号 记录 。 
通过 30 一 80 行 的 循环 把 10 个 数据 分 别 存 入 5 个 记录 。 
例 十 二 ， 从 随机 文件 中 取出 数据 
从 刚才 建立 的 随机 文件 中 取出 数据 的 程序 及 运行 输出 结 


果 是 : 


1Q OFRN "*R”， 林 1 ，" 了 :DATA-2.TXT， 
20 FIELD #!1, 4 AS A 币 ,4 AS B 惠 
30 FOR TI=! TO 5 

40 GET #!1，1 

5O X=CVS(A 币 ) 

60 Y=CVS(Bs 趾 ) 

7Q LPRINT X,Y 


SO NEXT 

SO CLOSE 

所 驻 台 . 呈 4 -8B324 .94 
SS3S13S.2 -78 

44 ,全 ~ 唱 ,BC 
2S64.21 = 号 了 

2 18 -~B9.86 
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第 40 行 从 D A 工 A-2 .TXT 中 读 出 记录 放 入 1 号 缓冲 
区 ， 每 循环 一 次 读 一 个 记录 ， 第 50 行 和 60 行 分 别 把 区 段 中 字 
符 串 转换 为 单 精度 数值 。 

例 十 三 ，LSET7/RSET 人 用 法 


IC GPSEN "只 "1 有 IDATA-3S。TXT" 
， 

2Q FIELD #l1t3 AS A 生 ,5 AS 8B 革 

T A 下 =4 TD。 45 台 和 且 " 


SQ LSE 
49 LSET B 吕 ="ABCDEF， 
SO LPRINT A 和 下; 车 

二 了 T 人 本 = 1 一 人 SS, 了 了 世 


1 


第 30 行 和 40 行 用 L S 下 下 语句 把 字符 串 放 入 缓冲 区 ， 从 
运行 输出 的 A $ 可 知 在 这 个 字符 串 后 面 留 了 4 个 空格 ，B $ 
已 把 字符 串 中 的 F 截 掉 ， 第 60 行 把 字符 串 存 入 5 号 记录 ， 第 
70 行 和 80 行 用 R S 忆 了 语句 把 字符 串 放 入 缓冲 区 ， 运 行 输出 
的 A 币 表示 在 前 面 留 了 空格 ;第 100 行 把 字 串 存 入 6 号 记录 。 

例 十 四 ， 把 一 批 数 据 存 入 随机 存 取 文件 

若 要 求 建 立 一 个 随机 存 取 文 件 , 用 4 个 记录 ， 每 个 记 
录 存 10 个 数据 。 

10 DIM A 生 (9) 

20 OPEN "R" ，#1 2B:DATA-4.TXTY 

xsO FOR I=G TO 9 

4D FIELD #1 ,TI4 AS D 蔬 ,4 AS A 机 (IT) 

SO _ NEXT 

a0 FOR J=l TG 4 


7ZD .FOR I=O TO 9 
OD READ X 
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3 LSET 台 囊 (TI)=MKRS 囊 (X)》 


1OO NEXT ， 
11O PUT -#1 可 
全 避 NEXTFT 


1X3Q CLOSE ， 
300 DATA 1 2 54 5,6,7, 昌 91e 

3S10 DATA 2,4,6:8,1012,14,16,18,20 

3S26 DATA SG,9 12.15,19,21，24,30，33 
330D DATG 1 4,9y16,259364964,B1 1O0 


第 40 行 是 关键 ， 这 行 用 了 哑 自 变量 D 书 ， 以 确定 每 一 个 
区 段 在 缓冲 区 中 的 起 始 位 置 。 按 设计 要 求 每 个 记录 存 10 个 单 
精度 数 , 即 FIELD 语 句 要 预先 把 缓冲 区 分 10 个 区 段 ， 第 一 
次 循环 时 ，I = 0，D 甩 长 度 是 零 ， 因 此 区 段 A$ (0 ) 从 第 
1 个 字 节 开始 存 贮 ， 第 二 次 循环 ，I= 1，D 有 长 度 是 4， 
故 A$(1) 从 第 5 个 字 节 开始 , 依 此 类 推 ,第 10 次 循环 ，D$ 
长 度 是 36， 故 A$ (9 ) 从 第 37 个 字 节 开 始 存 贮 ， 通 过 循环 ， 
把 缓冲 区 的 区 段 分 配 好 了 。 I 兴 4 不 能 写成 4 兴工 ， 和 否则 机 
器 无 法 判断 A 。 ， 

通过 第 60 行 到 120 行 的 双重 循环 把 40 个 数 分 别 存 入 4 个 
记录 。 

例 十 五 ， 从 随机 文件 取出 成 批 数据 

下 面 程 序 从 上 例 已 建立 的 随机 文件 中 取出 数据 。 


10 DIM A 宙 (9) 

2O OPEN "R"，#1，"B:DATA-4.TXT" 

30 FOR TI=Q TO 9 

40 FIELD 林 1,TX4 AS D 叫 ,4 AS A 币 ( 工 ) 
SO NEXT 
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<a0 FOR J=1 TO 4 
?70 GET #1 ,了 

80 FOR 1I=0 TO 9 
920 X=CVS(A 和 中 (IT) ) 
100 LPRINT X4 

140 NEXT 

120 LPRINT 

130 NEXT 

140 LPRINT LOF(1) 
150 CLOSE 


缓冲 区 的 区 段 定 位 方法 与 例 十 四 相同 ， 第 60 行 到 130 行 
的 双重 循环 把 各 个 记录 内 容 读 出 并 打印 出 来 。 第 140 行 用 到 
LOF (缓冲 区 编号 ) 函数 ， 这 个 函数 找 出 与 指定 缓冲 区 相 
连 的 文件 中 的 最 大 记录 号 。 这 个 程序 运行 输出 : 


pas up Se 140 
aaaaeaei ia it le 418 20 

> ea oilia :ss te 2 24 z0 33 
! ele as se 4 654 81 100 
4 


例 十 六 ， 其 它 语句 用 法 ， 


1410 OPEN "Ri1，"B:IDATA-S.TXTn 
20 FIELD #1,4 AS A 吉 ,4 AS B 让 

3Q PRINT 林 1，"ABCD"3 5123" 

40 PUT#! 

soO CLOSE 

60 OPEN "R 1 "B:DATA-S.。 TXT 
?0O FIELD #1, 4 AS C 利 

BO GET #1 

es0O LINE INPUT#1，C 各 

100 CLOSE 

240 LPRINT (Cs 


第 10 行 到 50 行 建立 一 个 随机 文件 D AT A-5 .TXT， 
218 


这 里 用 P RINT## 语 名 代替 L S 下 个 语句 把 字符 串 放 入 缓冲 
区 ， 类 似 还 可 用 PRINT 夫 USING，WRITE 井 语句 
代 蔡 ， 第 60 行 到 第 110 行 从 随机 文件 中 取出 字符 串 ， 这 里 用 
LINE INPUT 井 把 字符 串 取 出 来 。 

这 个 程序 运行 输出 ，AB C D ，123， 

另外 在 随机 文件 中 也 能 用 下 OF (缓冲 区 编号 ) 函数 检 
查 文件 是 否 结束 ;能 用 L OC (缓冲 区 编号 ) 函数 在 执行 了 
GE 下 T 或 PUT 语句 之 后 找 出 记录 号 码 。 

3.6.8 GBASIC 的 命令 和 语句 
进入 GBASIC 的 工作 方式 

GBASIC 是 Microsoft BAS IC 的 CP7ZM 版 本 ， 
它 除了 具有 MB AS IC 的 所 有 特色 外 ,还 有 高 分 辩 画 图 的 功 
能 , 它 只 在 16 扇 区 的 磁盘 上 才能 使 用 , 文件 名 是 GB ASIC . 
COM。 

进入 GB AS IC 的 操作 方法 与 进入 MB AS IC 类 似 ， 
只 要 在 提示 符 A 出 现 后 键入 GB AS IC 即 可 。 它 也 有 多 种 
键入 格式 : 

GBASIC 文 件 名 称 /F， 文件 数目 /M: 存 贮 器 的 最 高 
位 置 /S ， 记 录 的 最 大 长 度 

各 项 的 说 明 、 用 法 与 MB AS EC 类 似 。 
CBASIC 的 命令 和 语句 

@ HGR 

语法 格式 : 

HGR 屏幕 号 ， 颜 色 号 

用 于 建立 高 分 辨 图 形状 态 。 

屏幕 号 伺 指 定 的 显示 状态 是 : 

号 码 是否 清除 画面 屏幕 状态 
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生 


0 是 280x160 图 形 + 4 行文 字 说 明 

1 是 280x192 图 形 

2 可 280x160 图 形 + 4 行文 字 说 明 

3 理 280x192 图 形 
 ， 著 省 略 屏幕 号 ， 则 认为 是 零 ， 若 省 略 颜色 号 ， 则 认为 颜 
色 - 号 是 零 。 

@ HCOLOR 

语法 格式 : 

HCOLOR = 颜色 号 码 

指定 高 分 辨 图 形 显 示 的 颜色 ， 有 13 种 : 

0 黑色 1 绿色 2 紫罗兰 色 3 白色 14 
黑色 5 橙色 6 蓝 色 7 白色 8 黑色 1 9 
白色 1 10 黑色 2 411 白色 2 12 颜色 倒转 

上 述 颜 色 号 码 中 :0 ，3 ，4，7 用 来 画 细 线 ， 用 于 黑 


| 白 屏 幕 ; 8 ， 9 ， 10， 11 用 来 画 粗 点 或 粗 线 ; 8 ， 9 应 与 绿 


色 或 紫罗兰 色 合 用 ，10，11 与 橙色 或 蓝 色 合用 。 

注意 ，HCOL OR 只 能 用 于 高 分 辩 率 图 形状 态 。 

人 @@ HPLOT 四 

是 画 点 或 线 的 语句 ,用 法 与 APPLESOFT 语 言 的 PLOT 
语句 类 似 ， 可 参照 使 用 。 

全 HSCRN 

语法 格式 ; 

HSCRN(X, YI) 

其 中 0 委 X 委 279，0 委 了 委 191 

若 在 座 标 (X ，Y ) 位 置 有 点 ， 则 HS CRN(X ，Y )= 
一 1， 和 否则 为 零 。 
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司 
人 We 了 
ar 


8 3.7 MBASIC 中 的 函数 六 NS 


3.7.1 算术 函数 
ABS (X ) 
取 X 的 绝对 值 。X 为 数值 表达 式 ， 以 下 局 


求 X 的 反正 切 函数 值 ,X 的 单位 是 弧度 , -<X 福王 


ATN(X) 的 值 是 单 精度 值 。 
CDBLI(XI) 
将 X 的 值 转变 为 双 精 度 值 。 
CINTI(X) 
以 四 舍 五 入 方式 取 X 的 整数 ,但 不 能 超过 一 32768 一 32767 
的 范围 。 
COS (X) 
求 X 的 余弦 函数 值 ，X 单位 为 踊 度 ，COS (X ) 为 单 精 
度 值 。 
CSNG(X) 
将 X 的 值 转变 为 单 精度 值 。 
严 XP(X) ~ 
求 ex 值 。 
FIX(XI) 
又 一 种 取 X 的 整数 的 函数 ， 相 当 于 9 GN(X )+INT， 
(ABS (X )) 
例如 ， FIX(12.41)=12 
FIX( 一 12.41) = 一 12 
INT(X) 
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这 wh 
站 他 


取 小 于 等 于 X 的 最 大 整数 。 
LOG(X) 
， ， 取 X 的 自然 对 数值 ， X > 0 
RND(X) 
产生 0 与 1 之 间 随 机 数 。 
SGNI(X) 
取 X 的 符号 。 
SIN(X ) 
取 X 的 正弦 ，X 的 单位 是 绝 度 ，SIN (X 》 是 单 精度 
值 。 
SQR(X) 
求 X 的 平方 根 ，X 之 0 
TANI(X) 
求 X 的 正切 函数 值 ，X 的 单位 是 弧度 ，TAN(X ) 是 单 
精度 值 。 
3.7.2 字符 串 函 数 
ASC(XN) 
取 X 书 的 第 1 个 字符 的 ASCII 码 值 (X 为 字符 串 表 
达 式 ， 以 下 同 ) 
CHR$ (IT) 
表示 与 ASCIL 码 的 工 值 所 相应 的 形式 ， 工 为 整数 。 
例如 ， CHR $ (66 ) 为 字符 B 。 
CVI (2 个 字 节 的 字符 串 ) 
CVYS (4 个 字 节 的 字符 串 ) 
CVD(8 个 字 节 的 字符 串 ) 
以 上 三 个 函数 都 是 将 字符 串 转 变 为 数值 。 从 随机 文件 读数 据 ， 
必须 将 字符 串 转 变 成 数值 , CVI 函 数 将 2 个 字 节 的 字符 串 转 
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变 为 整数 ，CVS 函数 将 4 个 字 节 的 字符 串 转 变 为 单 精 度 值 ， 
CVD 函数 将 8 个 字 节 的 字符 串 转 变 为 双 精 度 值 。 详 见 随机 
文件 节 。 
HEXS$(X) 
把 十 进 制 数 X 转换 成 以 十 六 进 制 数 表 示 。 计算 前 已 先 把 
X 四 舍 五 入 为 整数 。 例 如 
PRINT HEX$ (32) 
20 
OK 
-EFTJ$(X$， 
人 其 中 X 于 为 字符 串 表 
达 式 ， 为 整数 ， 工 不 能 超过 255。 
LEN(X 囊 ) 
求 出 X$ 的 字符 个 数 。 
MID 有 (X$，I，J) 
从 字符 串 和 X$ 的 第 I 个 字符 开始 取 ] 个 字符 ，0 委 工 私 
255，0 委 J 委 255。 | 
MKI$ 〈 整 数 表 达 式 ) 
MKS 踪 、( 单 精度 表达 式 ) 
MKD 叫 〈 双 精度 表达 式 ) 
人 用 于 随机 
文件 。 
OCT$ (X) | 
把 十 进 制 数 X 转换 为 八进制 数 表 示 。 计 算 前 已 先 把 X 四 
舍 五 入 为 整数 。 例 如 : 
PRINT OCT 和 (24) 
30 
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O 天 
RIGHTS$ (X$，I) 

从 字符 串 X$ 的 最 右边 起 取 上 个 字符 。 
SPACES$ (X) 

产生 长 度 为 X 的 空 白字 符 车 ， X 为 四 售 五 入 后 的 整数 ， 
0 委 X 委 255 
STR 囊 (X) 

将 X 的 值 转换 为 字符 串 。 
STRING 和 (CI，J) 

表示 长 度 为 1 的 字符 串 ， 每 个 字符 都 是 值 的 ASCI1l 
码 。 可 用 作 命令 或 语句 。 例 如 : ， 


1 全 种 =STRING 囊 (11。 45) 

也 人 民事 =STRING 囊 (7: 42) 

0 LPRINT 有 向 2 ， GOOD ; 扩 蔬 
.45 LFRINT 再 种 5 下 EGGIN 和， 卫 囊 


关 其 其 其 其 其 其 琶 世 GTINI 闪闪 其 其 其 其 凑 


STRING$(CI ,Xd$ ) 表示 长 度 为 工 的 字符 串 ， 每 个 
字符 都 是 X$ 的 第 一 个 字符 。 可 用 作 命 令 或 语句 。 例 如 : 
1 各 于 =STRING 囊 (4 及 BC ) 
写 品 FRINT 下 囊 
运行 输出 ， AAAA 
VAL (和 争 ) 
将 X$ 转变 为 数值 ， 若 X$ 的 第 一 个 字符 不 是 十、 
& 或 数字 ， 则 VAL (X9$9 )= 0 
3.7.3 其 它 函 数 
刁 OF (缓冲 区 编号 ) 
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用 于 顺序 处 理 文件 和 随机 存 取 文 件 ， 是 文件 结束 标志 ， 

可 用 来 控制 资料 污 取 。 
FRE (0 ) 

得 出 未 使 用 的 内 存 字 节 数 。 
INKEY$ 

从 终端 键入 一 个 字符 的 字符 串 ， 或 不 键入 字符 。 键 入 
CTRL-C 程 序 就 停止 。 

INPUT$ (X， 并 Y) 

从 YY 文件 输入 X 个 字符 。 

INPUT $(X ) 从 终端 输入 X 个 字符 。 

例如 下 面 这 个 程序 : 

oO 有志 三 TNFUT 和 划 ( 王 ) 

2 LPRINT 入 砷 
运行 到 第 10 行 ， 出 现 光标 等 待 键盘 输入 ， 若 键入 RRR ， _ 则 ， 
输出 RRR ， 屏 幕 回 到 OK 。 

凡 程 序 中 包含 这 个 函数 ， 若 在 运行 中 键入 CTREL-C，, 将 
停止 运行 。 

INSTR (X 肌 ，Y$) 

求 出 字符 串 Y$ 在 字符 串 X$ 中 第 一 次 出 现 的 位 置 。 

INSTR (1I，X$，Y$ ) 求 出 字符 串 Y$ 在 字符 串 
X$ 的 位 置 ， 但 从 第 工 个 字符 开始 查找 它 所 处 的 位 置 。 

例如 下 面 的 程序 : 


10 6$="ABCDABCDABCD" 
20 B 第 ="BC， 

30 Cn=2AC" 

40 LFRINT INSTR (A,Bs) 
So LPRINT INSTR (A 叫 ,C 币 ) 
6D LFRINT INSTR (了 ,A 丰 ,BEs) 
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运行 则 打印 输出 ， 
2 
0 
6 
LOC (缓冲 区 编号 ) 
见 顺序 处 理 文件 和 随机 文件 的 说 明 。 
LOF (缓冲 区 编号 ) 


和 


对 文件 读 或 写 的 最 后 记录 的 数字 。 
LPOS (X) 

找 出 打印 机 缓冲 区 内 ， 打 印 机 的 打印 头目 前 的 位 置 。XX 
是 任意 设 定 的 参数 。 
P 玉 玉 和 (IT 


从 内 存 的 工 位 置 ， 得 到 字 节 资料 (0 至 255 的 十 进 制 整 
数 )，0 委 工 入 65536。 
POS (T 工 ) 本 
求 出 光标 目前 在 显示 屏 上 的 位 置 。 最 左边 的 位 置 是 1 ， 
I 是 任意 一 个 数 ， 例 如 下 面 的 程序 ， 
10 FOR TI=l1 TOQ 与 
SO FRINT 工 ; 
术 吕 全 EXT 
405 PRINT POSTL) 
运行 显示 : 
1234516 
SCRN (X，Y) 
式 中 X 是 0 至 39 的 整数 ，Y 是 0 至 47 的 整数 。 这 个 函数 
用 于 找 出 坐标 为 (X ，Y ) 的 点 的 颜色 。 
SPC (I) 
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显示 或 打印 空格 的 函数 ， 要 求 0 委 工 委 255, 与 APPLE- 
SOFT 语言 用 法 相同 。 
TAB(II) 

指定 显示 或 打印 位 置 的 函数 ,要 求 0 委 [ 委 255, 与 APP- 
LES OF 工 语言 用 法 相同 。 
USR(X) 

用 X 值 指定 所 调用 的 用 户 的 汇编 语言 子 程序 。 
VARPTR( 变 量 名 ) 

找 出 变量 名 第 一 个 字 节 的 地 址 。 

VARPTR( 共 缓冲 区 号 码 ) 找 出 设 定 在 指定 缓冲 区 号 
码 的 磁盘 I/O 缓 冲 区 起 始 地 址 。 
VPOS(II) 

求 出 光标 目前 在 屏幕 的 垂直 位 置 ， 最 高 点 是 1， 上 是 任 
意 值 。 

8$3.8 MBASIEIC 的 错误 信息 


这 一 节 按 错误 码 编号 顺序 列 出 MB AS EC 程序 运行 中 出 
错 的 信息 。 

1. “NEXT without FOR ”表示 程序 中 NEXT 与 
FOR 不配 对， 有 NEXT 而 无 FOR 。 

2.“《9yntax error” 表 示 语 法 错 ， 如 括号 不 配对 , 语句 
写 错 等 。 

3.“RETURN without GOS UB ” 表示 程序 中 
RETURN 与 GOS UB 不 配对 。 

4.“Out of data” 执 行 RE AD 语句 ,没有 足够 的 数据 
。 提供。 
5. “Illegal function call” 调 用 函数 错 , 例如 LOG 
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数 中 出 现 负 值 或 零 等 。 

6. “Over flow” 计算 溢出 ,计算 结果 大 于 MBASIC 的 
数值 格式 。 

7.“Out of memor8 程 序 太 长 ， 超 出 机 器 内 存 , 或 循 
环 虹 套 过 多 等 。 

8.“Undefined Line” 在 GOTO，GOS UB ，TFE.,… 
THEN …ELSE … 或 DELETE 语 句 中 所 指定 的 行 
号 不 存在 。 

9. “Subscript out of range” 程 序 中 用 到 的 数组 变量 
下 标 超 出 数组 说 明 中 的 规定 。 

10.“Redimensioned array” 重 复 定 义 数 组 错 。 

11.“Division by zero” 表 达 式 中 除数 为 零 错 。 要 注 
意 遇 到 这 种 错误 ， 程 序 仍 进行 ， 但 有 关 的 值 是 不 正确 的 。 

12. “Ililegal direct2 直 接 命令 用 错 。 

13.“Type mismatch” 变 量 类 型 不 匹配 错 。 

14. 4Out of string space” 内 存 容 量 不 数字 符 串 使 


15.“9tring too long” 字 符 串 超过 255 个 字符 。 

16., “String formula too complex” 字 符 串 表达 式 太 
复杂 错 。 

17.“Cant continue? 程 序 无 法 继续 执行 ， 可 能 程序 
有 错 ， 或 程序 执行 中 暂停 后 对 程序 已 作 了 修改 等 。 

18.“《Undefined user _ function 在 DEF 语句 之 前 ， 
调用 US R 函数 错 。 

19.“NO RESUME?” 在 处 理 错 误 的 程序 中 , 后 面 没 

有 RES UME 语 句 。 

20: “RESUME without error7” 程 序 中 没有 处 理 错 
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误 语句 ， 却 用 了 R ES UM FE 语句 。 

21. “Unprintable error” 在 ERROR 语句 中 指定 的 
错误 码 事先 没有 定义 。 

22. Missing operand” 表 达 式 中 ， 只 有 运算 符 ， 设 有 
运算 量 。 1 
23. “Line buffer overflow” 程 序 行 中 字符 太 多 , 超 
出 每 行 允 许 范 围 。 

26. “FOR without NEXT” 程 序 中 FOR 与 NEX 了 
不 配对 ， 有 FOR , 无 N 到 XT。 

29.“WHILE without WEND 2” 程序 中 WHITL 瑟 与 
WEFEND 不 配对 ， 有 WHILE 而 无 WEND。 

30.“WEND without WHILE ”程序 中 WEND 与 
WHITEL EE 不 配对 ， 有 WEND 而 无 WHILE 。 

31.“Reset error2” 按 了 Reset 键 错 ， 但 有 些 APPLE 
1 FREES9SE 工 键 须 与 CTRL 键 共 按 ， 故 一 般 不 另 发 生 这 类 
错误 。 

32.“《Graphics statement not implemented ”在 
MB AS IC 中 ,不 能 用 绘图 语句 ,而 只 能 用 于 GBAS IC 。 

50.“kField' overflow2> 表 示 Field 语 名 分配 的 字 节 数 ， 
超出 了 已 指定 的 随机 文件 记录 长 度 。 

5L. “Internal error” 和 磁盘 MBAS IC 内 部 有 错 。 

52. “Bad file number? 用 错 磁 盘 文 件 号 码 。 

53. “File not _ found? 指定 的 文件 不 在 磁盘 中 。 

54. “Bad file mode” 磁 盘 文 件 类 型 指定 错 。 

55.“File already openy 文 件 已 经 打开 错 。 若 打开 -- 
个 已 经 打开 的 文件 或 Ki11 一 个 打开 了 的 文件 就 出 错 。 

57.“Disk IT/ODO error ” 贡 盘 17/O 错 ， 操 作 系统 无 法 恢 
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复 5 

58.“File already exists” 用 NAME 命令 改变 磁盘 文 
件 名 字 时 ， 由 于 原 磁 盘 上 已 有 同名 文件 ， 故 不 能 执行 。 

61.“Dish full ”磁盘 空间 已 占 满 了 。 

62.“1lnput past end" 输 入 文件 语句 中 已 无 资料 可 输入 
时 错 

63. “Bad record number2 记 录 号 码 有 错 ， 在 PUT 
或 GET 语句 中 ， 记 录 编 号 超过 最 大 容许 值 (32767) 或 等 于 
零 时 出 错 。 

64. “Bad file name” 表 示 在 LOAD ，S AVE ,下 1- 
EL 工 或 OPEN 中 ， 文 件 名 用 的 不 对 ， 如 文件 名 太 长 等 。 

66. “Direct statement in file?" 在 装 入 一 个 ASCITI 
格式 的 文件 时 ， 遇 到 了 直接 语句 错 ， 装 入 停止。 
5 67.“Too many files?” 建 立新 文件 时 (用 S AVE 或 O- 

PEN), 所 有 255 个 目录 内 容 已 满 。 

68.“Disk read only? 磁 盘 只 读 ， 可 能 磁盘 已 “ 配 保 
护 ” 了 ， 或 换 了 磁盘 没有 按 RESET 键 。 

69. “Drive select error2 指 定 的 驱动 器 不 存在 。 

70.“File read only” 文 件 只 供 读 出 。 已 用 S 工 AT 语 
句 指定 为 只 读 的 文件 不 能 再 写 入 。 

3.9 MBASIC 与 APPLESORT 比较 

3.9.1 MB ASTC 独 有 的 功能 

(1) MB AS1C 独 有 的 命令 或 语句 

COMMON,，CALL，PRINT USING，WHILE 
… 和 WEND， EDIT， AUTO，RENUM，IF …THEN … 
ELSE…， HSCRNOX， Y),VYPOS (0) 等 。 
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(2) MB AS IC 独 有 的 函数 
INSTR，HEX$，OCT$，STRING$ 等 。 

自 定义 函数 中 可 以 有 多 个 自 变量 。 

(3) MBAS IC 独 有 的 运算 功能 
AND,，OR，XOR，LMP，EQV, 整除 以 及 MoOD 


(4) MP AS ITC 有 保护 文件 功能 

MB ASIC 可 用 保护 性 的 二 进 制 格式 存 贮 文件 ， 可 以 调 
出 运行 ， 无 法 列表 。 
(5) MB AS IC 有 三 种 数值 变量 形态 

MB ASIC 有 三 种 数值 变量 形态 ， 即 整 变量 、 单 精度 变 
量 以 及 有 16 位 数 的 双 精 度 变 量 。 而 APPLEFES OFT 只 有 9 
位 数 的 精确 度 ; 而 且 MB AS IC 还 提供 了 十 六 进 制 及 八进制 

) 建立 数据 文件 有 很 大 不 同 , 即 MB 让 是 订 

了 句 ， 比 APPLESOFT 简 便 得 多 。 

3.9.2 两 种 语言 共有 的 命令 或 语句 

以 下 命令 或 语句 在 MB AS IC (GB AS IC ) 与 APPLE- 
SOFT 了 中 都 适用 : 

GR,，COLOR,，PLOT VLIN, SCRN，POP ， 
HGR，HCOLOR，HPLOT, TEXT，HTAB，LNYV- 
ERSE,， NORMAL,PDL(0) 
3.9.3 用 法 不 同 六 令 令 或 语 名 

二 的 滞 过 二 次 何 闪 和 ASIC(GMASIC) 与 APP- 
[ 王 S OFT 中 用 法 不 同 : 

FOR .NEXT，INPUT，ON ERROR GoTO， 
RESUME, TRXT,，GR，HGR，C ALL 等 。 


231 


3.9.4 APPLESOFT 独 有 的 功能 
FLASH, STORE, RECALL，IN 共 ，PR 共 ， 
HIMEM…LOMEM,SHLOAD，XDRAW, DR AW， 
SCALE， 科 带 LOAD， 磁 带 S AVE，ROT，ESC 键 
的 屏幕 编辑 功能 等 。 


NA 3.10 将 文件 从 AbDPLE DOS 
转移 至 CP7M 


3.10.1 APDOS 
在 CP7/M 系 统 盘 上 有 一 个 文件 AP DOSs . COM, 可 作 
为 过 渡 命令 将 APPLE DOS 的 磁盘 文件 转移 到 CP/M 
盘 。 对 于 数据 文件 〈 即 在 DOS 盘 上 标 有 T 的 文件 ) 与 程序 
文件 CD OS 盘 上 标 有 和 A 或 工 的 文件 ) 转移 的 步骤 不 同 。 另 
.外 若 用 D OS 3.2 版 本 编 成 文件 ， 人 


换 操 作 。 
3.10.2 数据 文件 转移 
步骤 , 


(1) 把 CPV/VM 系 统 主 盘 插入 A: 驱动 器 ， 开 机 进入 CPV/ 
M 工 作 方 式 ， 显示 Ay>。 

(2) 键入 APDOS 回 车 ， 显 示 ; 

APPLE HLCP7/M 

APPLE DOS TO CP/M FILRE TRANSEF- 
ER PROGRAM(C)1980 MICROS OFT 四 

显示 提示 符 兴 〈 有 的 机 器 也 许 是 :)。 

(3) 在 提示 符 后 面 键 入 命令 C AT .d : 则 把 指定 驱动 器 
d: 中 APPLE DOS 盘 上 的 文件 目录 显示 出 来 。 

(4) 键入 dl :文件 名 1 =d2: 文 件 名 2 
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这 时 显示 : ( 设 d1 : 是 A:，d2: 是 B:) 

INSER 人 人 APPLRFR DOS DISK IN DRIVE DB: 

INSERT CPM DISK IN DRIVE A: 

HIT RFTURAN TO BFPFGTN 
即 要 求 把 DOS 盘 插 入 B :,CP7M 插 入 A:, 按 回 车 键 ， 这 
时 显示 : 

WORKING… 

两 个 邓 动 器 交替 亮 灯 ， 做 文件 转移 工作 。 最 后 显示 : 

TRANSEFEER COMPELETE 
即 文 件 转移 工作 已 经 完成 ,已 经 把 DOS 盘 上 指定 的 文件 〈 文 
件 名 2 ) 转移 到 CP /7M 盘 中 的 文件 上 了 (文件 名 1)。 

车 是 接着 还 要 转移 文件 , 驱动 器 不 必 重 新 指明 , 按 上 次 指 
定 的 驱动 器 执行 ; 若 要 改变 驱动 器 ， 必 须 重新 执行 APDOS 
命令 。 

3.10.3 程序 文件 转移 

步 又: 

(1) 在 DOS 系统 下 , 先 把 APPLEFSOFT 或 INTE - 
GER BASIC 程序 按 MB ASIC 编制 程序 语言 规定 改写 成 
MB AS IC 程序 形式 。 

(2) 增加 程序 行 0 行 

0 PRINT CHRRS$ (4)OPEN APPTLEPROG ?”: 

PRINT CHR$(4) “WwWRITR APPTDEPROG?2: 

POKE 33，33 :LIST: 

PRINT CHR$(4): “CLOSE”:FND 

(3) RUN 程序 ,这 时 在 D OS 盘 中 就 会 有 文件 APP - 
[RPR OG， 这 是 原文 件 的 复制 品 。 

(4) 把 含有 APDOS 文件 的 CP7VM 愉 插 入 A :, 开 机 。 
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(5) 键入 APDOS 
显示 : 
APPLE LU CP/ZM 
APPLE DOS TO CP/M FILE TRANSEFEER 
PROGRAM (C) 1980 MICROS OFT 
提示 符 关 
(6) 键 AC AT B: 可 显示 B: 中 DOS 目 录 。 
(7) 键入 A :文件 名 1=B: APPLEPROG 
显示 : 
INSERT APPLE DOS .DISK IN DRIVE B: 
INSERT CP/M DISK IN DRIVE A: 
HITT RETURN TO BEGIN 
即 要 求 DOS 盘 插 入 B : ，CP /M 盘 插入 A:， 按 回 车 键 进行 
转移 ， 完 成 后 显示 : 
TRANSEFER COMPLETE 
(8) 键入 CTRL-C 则 退出 APDOS 。 
(9) 键入 MB AS IC， 进 入 MB AS IC 工作 方式 ， 调 出 
磁盘 文件 ， 删 除 0 行 即 全 部 完成 转移 。 
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第 四 章 程 序 库 
8 4.1 数据 处 理 程 序 库 


在 气象 、 水 文 、 地 质 、 医 学 等 的 实际 工作 中 ， 经 常用 到 
多 元 分 析 方 法 处 理 数据 , 这 里 我 们 选择 提供 了 一 些 常用 程序 。 
数学 处 理 方法 主要 取材 于 丁 士 晨 所 著 《多 元 分 析 方法 及 其 应 
用 》 一 书 ,程序 编排 次 序 基本 上 也 按 该 书 介绍 内 容 的 先后 编排 ， 
所 以 若是 把 本 程序 库 与 该 书 配合 起 来 看 ， 对 于 程序 编制 思路 
以 及 应 用 方法 会 有 更 清楚 的 了 解 。 程 序 是 用 APPLESOFT 
BASIC 语 言 编 制 的 ， 只 要 作 较 小 的 改动 ， 当 然 就 可 改变 为 
MBAS IC 语言 形式 。 程 序 以 子 程序 方式 提供 ， 每 个 子 程序 
前 面 说 明 解 决 的 是 什么 问题 ， 所 用 数学 方法 的 简单 介绍 ， 子 
程序 的 使 用 说 明 ， 后 面 有 简单 的 例题 示范 ， 读 者 看 了 子 程序 
使 用 说 明和 例题 算法 ， 就 会 使 用 这 个 程序 解 题 了 。 实 际 上 读 
者 只 要 编制 一 个 输入 数据 的 主 程序 ， 投 入 运行 就 可 以 了 。 

4.1.1 数据 处 理 和 统计 检验 
标准 化 ， 

(1) 目的 

由 于 各 个 物理 量 和 各 种 因子 的 单位 、 大 小 很 不 一 样 ， 要 
估计 一 批 数据 的 哪个 因子 重要 ， 就 要 做 标准 化 处 理 。 

(2) 数学 方法 

如 有 上 个 因子 ， 每 个 因子 有 mi 个 数据 ， 每 个 观测 值 记 为 
xij，i=1,2,…，m 为 因子 ，j=1,2,…，ni 为 样本 数 。 

标准 化 后 的 观测 值 x' ;是 ; 
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/ Xi 一 Xi 


式 中 习 ; 为 第 i 个 因子 的 平均 值 ; 
Xi 一 二 史 Xil 


式 中 s ,为 第 i 个 因子 的 标准 差 ， 


第 i 个 因子 的 变异 系数 为 (C .VY .) 1 
(C.V.)i=SiAxXi 
(3) 子 程序 使 用 说 明 
@D 简单 变量 
M-- ”要求 标准 化 处 理 的 因子 个 数 ; 
NM_ 第 一 个 变量 NM 是 诸 因 子 中 最 多 样本 的 个 数 
以 后 则 代表 各 个 因子 各 自 观 测 样 本 的 个 数 ; 
A 一 一 各 个 因子 的 平均 值 ; 
S 一 一 各 个 因子 的 标准 差 ; 
C .V .一 -各 个 因子 的 变异 系数 。 
人 @) 数组 
X(NM) 一 输入 时 为 各 个 因子 观测 样本 的 值 ， 输 出 时 
为 各 个 因子 标准 化 后 的 值 。 
全 数据 排列 顺序 
M，N M，N M， X(NM),NM，X(NM)，… 
命 计算 结果 


236 


ME AN X 一 一 各 个 因子 的 平均 值 ; 

S 一 一 各 个 因子 的 标准 关 ; 

C .V .一 一 各 个 因子 的 变异 系数 : 二 

X(N MI) 一 一 各 个 因子 标准 化 后 的 各 值 。 

合 在 主 程序 中 按 数 据 排列 顺序 给 出 数据 后 , 由 GOS UB 
1000 转 本 节 子 程序 。 

(4) 子 程序 


1000 REM STANDARD (AP 下) 

1002 DEF FNPY) = INT (Y 10 
DO + DSS) / 100 

1004 READ MNM:INM = NM ~ 1 

10006 DIM X(NM) 

1008 FOR I = 1T TO H 

401l0O READ NMINM = NM -~ 1 

1012A=OB = OO- 

lo1l4 FORJ = 0 TO NM 

ll READ X(J) 

1918 有 一 A++ X(J) 

lo20 B= Rd+ XI) ”人 卫 

1022 NEXT 了 

tio24S= SOQOR ((B 一 A~ 人 2 人/ (NM + 
L1))》 /~ NM) 

1o026A=AA/V (NM + 1) 

1028 CEV = S /NA 

1030 PRINT "MEAN X 一" FN PIA) 3 
TAB( 20)3"S m "3 FN PI(S) TAB 
40)1 CC.V。 = FN PICV) 

1032 FORJ=OTO NM STEP 10 

10O34 CE = NM ~ 可 

10s6 IFC >9 THEN C 一 9 

1038 FOR KK =JTOJ +C 

19040 XIK) 一 (XIK) ~ A) VS 

1042 PRINT FN PIXIK))8 SPCIC 2)? 


1044 NEXT K 
1046 ”PRINT 
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t104B8 NEXT 了 
10s50 PRINT 


1052 NEXT I 
1954 RETURN 


《5) 例题 
个 如 有 两 个 序列 xl 和 x2， 样 本 长 度 n= 9 ， 即 是 : 
xi 三 (5,6,8,7,7,4,6;,5,6) 


xz 一 (0.8,0.3,0.6,0.7,0.5,0.4,0.7,0.2,0.3) 
求 两 个 序列 标准 化 处 理 后 的 值 。 

@) 主 程序 

10 DATA 2,9 

20 DATA 9,5,6,8,7,7,4,6,5，6 

30 DATA 9,0.8,0.S,0.6.0.7,0.5,0， 


4:0.7,0.2,.0.S 
40 60SUB 1000 


5SD ”END 

电 标准 化 子 程序 ( AP -1) 

曲 计算 结果 ; 

URUN 

MEAN X 于 加 S 二 1。2Z2D 局 


-.82 0 1.63 -82 .82 -li.4653 0 -.82 0 
MEAN X = .5 s = .21 C.v，= .42 
1.41 -.94 .47 .94 0 -.47 .94 -1.41 -.94 
t 检验 〈 检 验 样 本 与 母体 平均 数 的 差异 ) 
(1) 目的 
检验 一 个 小 样本 的 平均 数 是 否 来 自己 知 平均 数 的 正 态 母 
体 。 
(2) 数学 方法 
已 知 正 态 母体 的 子 样 为 xl, xz, …, xn， 和 母体 的 平均 数 是 


hl 0o 
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则 子 样 平均 数 是 : 
六 一 y， Xi7n 


子 样 标准 差 是 : 


SS | 


检验 第 二 类 错误 所 需 的 统计 量 : 
DT=(X-mo)7S 
统计 量 t : 
t=DTwn 

给 定 信 度 c， 从 数理 统计 表 上 查 t 分 布 表 ， 得 到 置信 和 度 
tu, 车 |jt | te, 说 明子 样 平 均值 与 mo 差异 显著 ;, 若 |t | < 
te， 则 没有 显著 差异 。 给 定 信和 度 c， 样 本 数 ，DT 值 ， 查 第 
二 类 错误 的 概率 。 

(3) 子 程序 使 用 说 明 、 

他 简单 变量 

N 一 一 样本 个 数 ; 

M 一 一 母体 的 总 体 数学 期 望 值 ; 

X 一 一 样本 数据 ; 

DT，T 一 一 统计 量 。 

@ 数据 排列 顺序 

N，M， 入 

图 计算 结 

打印 输出 统计 量 T 和 DT 。 

全 在 主 程序 中 按 数据 排列 顺序 给 出 数据 后 ，GOSUB ， 
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1000 转 本 节 子 程序 。 
(4) 子 程序 


CCC 


REM T 一 TEST (全 忆 一人) 


1002 DEF FN PIY) = INT (Y 站 1 


OOD + 口 。 三 ) 7 1DDOC 


1004 ”READ NM 


CO 


FOR I= 三 1 TO RN 


1OoB READ X 


二 吕 圭 宫 


SA = SA + X 


dt2 SP = SF + X ”了 


14 
工人 上 扣 


圭 品 土生 


NEXT I 

DT = (SA7/N- M)/ SoR ((S 
PP 一 SA 27N AN -1)) 
T = DT kk SGQR (N) 


1020 PRINT "T="3 FFN PT) 


1022 PRINT "DT="， FN PDT) 
1024 RETURN 
《5) 例题 


人 @@O 如 有 两 种 观测 方法 , 同样 测量 10 次 ， 这 两 种 方法 测量 
误差 的 差 值 如 下 (A 一 B ) 所 示 : 
(A 一 B)=(1，3，1，1，0，1，2，1,5,1) 
问 :， 这 两 种 观测 方法 之 间 有 没有 差别 ? 
人 @ 可 设 两 种 观测 方法 之 间 没 有 不 同 , 即 设 mo=0， 则 可 
有 如 下 主 程序 ; 


1 
信人 
术 癌 


人 4 避 


DATA_ 10,0 
DATA 1 3,11toiy21:5，1 
60SUB 1000 
END ， 


轿 t 检 验 子 程序 (AP-2) 
@@ 计算 结果 ， 
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URUN 
了 = 羡 。 写 39 
DT=1 .119 


给 定 信 和 度 KC=0.05， 查 上 分 布 表 得 too=2.26 (自由 
度 f=n--1=9); 若 给 定 信和 度 gc=0.01， 则 f= 9 时 too= 
3.25。 

-由 于 T > to.og ，T >>too， 说 明子 样 平均 值 与 m 差异 
显著 ， 即 两 种 观测 方法 之 间 差 异 是 明显 的 。 

已 知 ，DT =1.11，n=10，aw=0.05， 可 查 得 = 
0.20; 

已 知 ，DT =1.11，n=10，w=0.01， 可 查 得 B= 
0. 50; 

所 以 综合 考虑 应 该 取 具 有 第 一 类 错误 & =0.05;， 具有 第 
二 类 错误 B =9.20 为 好 。 
t 检验 (检验 两 个 样本 平均 数 的 差异 ) 

《1) 目的 ” 

检验 两 个 小 样本 的 平均 数 差异 是 否 显著 。 

(2) 数学 方法 

已 知 两 个 正 态 变量 母体 的 子 样 为 : xi，x2，…， xn1 和 y)， 
2， 9 yn2 
两 个 子 样 的 平均 数 分 别 是 ; 


X 一 寺 Xi/ynl 


7= yiyns2 
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两 个 子 样 的 标准 差分 别 是 : 


统计 量 DT 是 : 

X 一 了 

间谍 莹 < 
(ni 一 1)sz+(noy 一 1)S7 
n 1 十 na 2 一 2 
”统计 量 T 是 : 
下 二 DT 

工 + 工 

nl mn2 
自由 度 上 是 : 


FF=ni+n2 一 2 

给 定 信和 度 w, 由 F 值 从 数理 统计 表 可 查 置信 限 tv, 若 | 了 | 
>>t <， 表 明 x 与 y 差 异 显著 ，| T | <tv， 则 差异 不 显著 。 由 
DT 值 ， 给 定 K， 样 本 个 数 ， 可 查 出 第 二 类 错误 的 8 值 。 

(3) 子 程序 使 用 说 明 

-全 简单 变量 

N 1-- 一 第 一 个 子 样 的 样本 个 数 ; 
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N 2 一 一 第 二 个 子 样 的 样本 个 数 ; 

X 一 一 前 面 代表 第 一 个 汪 村 用 每 全 柑 全 罗 全 全 同和 
第 二 个 子 样 的 各 个 样本 数值 ; 

F 一 一 自由 度 ; 

DT， T 一 一 统计 量 。 

@@ 数据 排列 顺序 

N1，N2， 入 

电 计算 结 

打印 输出 自由 度 及 统计 量 。 

@@ 在 主 程序 中 按 数 据 排列 顺序 给 出 煞 据 后 ,由 GOS U- 
B 1000 转 本 节 子 程序 。 


(4) 子 程序 
1DoO0 REM T-TESTIAP-3) 
1002 DEF FN PIY)， = INT (Y 站 10 


00 + 0.5) /1000 
1004 READ N1,N2 
1008 FOR I = 1 TO Ni 
1010 READ X 
ioit2 S1 = St + XsS2 = S2 + X“^ 
1014 NEXT II 
1016 FOR I = 1-TO N2 
1018 READ X 
1020 SS3 = SS3 + X:S4 = S4 + X ^ 2 
1022 NEXT I 
1024 SX = SGQR ((S2 - S1 27/Ni 
VAN -1)) 
1D26 SY = SQR ((S4 - S3 和 2 / N2 
) / (N2 - 1)》 
1o028 DT = (S1 / NI1 -~- SS / N2) / SGQR 
(CNL ~- 1) 冰 SSX 2 + (N2 - 
it) 站 SY^2) 7 (Ni + N2 - 2) 
)》 
1030T= DT SGR (人 /Ni + 1 7/ 


| 
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N2) 
1032 PRINT "F="3N1 + N2 - 2 
10xS4 PRINT "DT=";， FN P(DT) 
1036 PRINT "T="y FN FT) 
1038 RETURN 


(5) 例题 
@ 如 某 年 搞 10 次 人 工 降雨 , 得 到 作业 区 (X ), 对 照 区 (Y) 
雨量 ， 问 人 工 降 十 效果 是 否 显著 ? . 

X=(7,3,2,4,6,6,7,.5,6,4) 
Y=(3,6,2,2,1,4,2,6,3,1) 
@@) 主 程序 

10 DATA 10,10 

20 - DATA 7,S,2,4,6:6,7.5.6。4 

3O DATA 3,622，1， 4 2,6,3,1 


49 GOSUHB 1000 
SO END 


地 t 检 验 子 程序 (AP-3) 
由 计算 结果 : 
URUN 
F=18 
DT=1 .1S4 
5 
取信 和 度 C=0.05， 上 =18， 则 too=2.10， 由 于 工 > 
to.0 ， 说 明 六 与 yY 差 异 显 著 ， 人 工 降雨 效果 明显 。DT= 
1.13，N =10，cw=0.05 时 有 =0.20。 
X?2 检 验 〈 检 验 样 本 标准 差 与 母体 均 方 差 的 差异 ) 
(1) 目的 
检验 样本 的 标准 差 与 它 母体 均 方 差 之 间 有 无 差异 。 
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(2) 数学 方法 
已 知 母体 数学 期 望 X, 均 方差 g ， 它 的 子 样 是 xiy x2，… 


Xn 
样本 离 差 平方 和 : 
SD= 写 (xi 一 习 ? 

统计 量 %Y2? 是 : 

X2=SD7a 
子 样 标准 差 平方 是 : 

S2==SD/An 一 也) 
统计 量 R 是 ， 

R=S27/ac2 
自由 度 F 是 : 

下 =n 一 1 


已 知 F ， 给 定 信和 度 c ， 由 数理 统计 表 可 查 Xx 表 , 得 置信 


限 X2， 若 算得 的 X2?Y2， 则 说 明子 样 与 母体 的 分 布 有 明显 
差异 ; 若是 Y2< X%32, 说 明子 样 与 母体 的 分 布 没 有 明显 差异 。 


由 R ，Cc 和 下 值 ， 可 以 查 得 出 第 二 类 错误 值 。 
(3) 子 程序 使 用 说 明 
人 简单 变量 
.XP 母体 的 数学 期 望 ; 
DP 一 一 母体 的 均 方 差 ; 
N 一 一 子 样 的 个 数 ; 
和 一 一 子 样 的 各 个 数值 ; 
KA，R 一 一 统计 量 。 
凶 数据 排列 顺序 
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XP，DP，N，X 

赎 计算 结 : 

打印 输出 ， 

KAPA 和 A 2 一 一 统计 量 %” ， 

R - 统计 量 R ; 

F 一 一 自由 度 。 

全 在 主 程序 中 按 数据 排列 顺序 给 出 数据 后 , 由 GOS UB 
1000 转 本 节 子 程序 。 

(4) 子 程序 


1OOC REM KAPPA-TESTIAP-4》 

16O02 DEF FN PIY) = INT (YY 多 1 
OO + 日 .5) 11000 

1004 READ XF ,DPIN 

1Oo06 FOR I = 1 TO N 

10C READ X 

1Olw Si = S1l1 + 

101t2 S2 = S2 + 

1o014 NEXT II 

tiQOtoe SD = S2 一 卫 素 St 于 XF 十 有 米 
XPR ”人 了 

ltieB kN = SD / DF 

1020 R= SD/L (人 (IN 一 1) 闲 DP ”2) 

1022 PRINT "KRAPFA~2=”" 3 FN PRIOKA) 

1624 PRINT 2 R=” FN P(R) 

to2w PRINT "F=”N 一 于 

1029 RETURN 


X 
办 


(5) 例题 

人 如 某 水 库 多 年 平均 月 库容 为 4 亿 方 , 标准 差 为 2 亿 方 ， 
最 近 5 年 的 月 平均 库容 分 别 为 4，3，0，6，7 亿 方 ， 问 ， 
这 5 年 库容 变动 有 没有 反常 ? 

@@ 主 程序 
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1D DATA 4 2 

20 DATA 4 3 De 7 
3D 605SUBEB 1000 

4D END 


井 2 检验 子 程序 ( AP -4) 
世 计算 结 < 


DRUN 
KAPA^2=15 
R=1l .875 
F=4 


由 F =4， 信 度 x =0.05 时 , 从 数理 统计 表 查 得 Xu 二 
9.488; 

由 FE =4，aw=0.05，R =1.87 时 , 查 得 B =0.5 从 以 上 
检验 说 明 ， 子 样 分 布 可 能 与 多 年 分 布 不 一 样 ， 出 第 一 类 错误 
的 概率 为 5 %， 出 第 二 类 错误 的 概率 为 50%， 所 以 只 根据 这 
些 有 限 的 资料 还 不 足以 判断 这 5 年 的 库容 反常 。 

X2 检 验 〈 检 验 联 列表 中 因子 相互 独立 性 ) 

(1) 目的 

检验 联 列表 中 因子 相互 独立 性 。 

(2) 数学 方法 

设 有 两 个 因子 x 和 了 ， X 分 为 r 类 ，y 分 为 S 类 ,nii 代 
表 两 个 因子 各 种 组 合 观测 次 数 。 


9 1 = 2 ni 
1 
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理论 次 数 为 
统计 量 X2? 是 : 


本 人 
和 Ca 一 


rXS nP ij 
若 观测 次 数 少 ， 须 加 连续 性 订正 ， 即 ; 


宁 (|nii 一 nPii|l -0.5)2 


%Y2 = 
rXS nP ii 


在 本 程序 设计 中 ， 假 设 观 测 次 数 已 足够 多 ， 故 计算 多 
的 表达 式 中 没有 加 连续 性 订正 项 。 自 由 度 f 为 ; 
f=(r-1)x(s 一 1 
已 条 自 由 度 f ， 指 定 信和 度 gc , 可 由 如 下 近似 公式 计算 X% 
值 ， 以 省 去 查找 数理 统计 表 的 麻烦 。 当 ca =0.01 时 ， 
XY3.01=f+2.2 二 2.326w 2 一 
当 a =0.05 时 ， 
XY14 .05 = 二 0.85 十 1.645A 2 一 开 
若 %2?>X&， 则 x 与 y 不 独立 ， 有 一 定 关 系 ， 否 则 x 与 y 独 
立 ， 没 有 密切 关系 。 
(3) 子 程序 使 用 说 明 
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人 @@ 简单 变量 

N1-- 一 因子 x 分 成 的 类 数 ; 

N2- -因子 了 分 成 的 类 数 ， 
F 一 一 自由 度 ; 

KA，K1， 开 2 

@ 数组 

X(N1，N2) 一 一 联 列表 中 各 组 合 观测 值 ; 

S1(ND 一 一 因子 x 各 类 观测 总 数 ; 

9S 2(N2) 一 一 因子 y 各 类 观测 总 数 。 

他 数据 排列 顺序 

N1，N2，X(N1，N2) 

井 计算 结果 

打印 输出 ; 

F 一 -一 自由 度 ; 

KAPAA2(0.01) 信和 度 0.01 时 的 x2 值 ， 

KAPAA2(0.05) 信 度 0.05 时 的 X: 值 ; 

KAP A A 2 一 一 计算 的 X? 值 ; 

若 信 度 为 0.01 时 , x 与 了 关系 显著 ， 则 打印 “ alfa = 
passy?: 


若 信和 度 为 0.05 时 ，x 与 了 关系 显著 ， 则 打印 “alfa=0.05 


统计 量 。 


pass?; 


若 信 度 为 0.05 时 ，x 与 了 关系 不 显著 ， 则 打印 “alfa = 
no pass7。 


@@ 在 主 程序 中 ， 按 数据 排列 顺序 给 出 数据 后 ， 由 GO - 


S UB 1000 转 本 节 子 程序 。 


(4) 子 程序 
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主 CC 
避 名 呈 


1 


OO 
1 DC 名 
了 
品 1 全 
于 品 革 入 
1Ql1e 
td 日 
1 避 们 避 
站 人 生 
二 避 全 全 
主 口 吕 操 
| 


二 全 六 已 
已 卫 全 
井 汉 信 
1CSCO 
1038 
荆 避 4 避 
1 4 人 2 
1 口 千 作 
teD4 扬 
| 


于 口 写 总 


二 名 号 


REM KAPA-TESTIGP--S) 

DEF FFNPIY) = INT (人 Y 烤 1 
OOD + 口 .5) /1DO0 

READ N1,N2:NL = Ni 一 13:N2 :== 
N2 一 

DIM XCNisN2) SitNti)S2(N2) 
FOR TI = 直 TO NI 

FOR J = OO TO N2 

READ X(IyJ) 
Sti(I) = St(I) + XI J) 
S2(J) = S2t(J) + XI IJ) 

NEXT 了 
SS= SSG + Sttk(I) 

NEXT 了 

FOR I= DTO Ni 

FOR J= DTO N2 
全 有 二 人 十 (XII JI)》 一 S1 人 TI) 冰 
S2(J) 7 SS)》 ”了 炒 SSG 7/ (StI 
)》 六 S24)) 


NEXT 

NEXT 工 
F 户 = Nt 炒 的 二 
长 FF 二 SRR 
(2 来 请 一 芋 ) 

K2= 上 +DBs+ lo45 kk SR 

(来 请 一 二 ) 

PRINT “F= ”3; 

PRINT “KRAPA~ OO ) = 上 N 上 户 
《有 再 4 呈 呈 ) 入 全 展台 全 ( 台 。 吕 与) 
= "1 FN PRIK2) 

户 愉 NT 上 及 忆 台 一 全 = FN 忆 (KA) 

IF 长 人 > KR THEN 有 RINT “al 千 
己 = 口 -1 Pass's GDTO 1052 

IF 长 有 > 攻 2 THEN FRINT “中 
忌 = 侣 .局 己 Pasass" GO0TO 1952 
户 只 工人 下 站 总 一 癌 。 口 殷 P 口 用 弓 三 到 
RETURN 


(5) 例题 
中 某 气 象 台 把 一 些 预报 指标 综合 为 预报 指标 权 数 , 预报 
降水 情况 如 下 表 : 


指标 = 土 4 


指标 科 一 5 


这 是 3x4 联 列表 。 问 预报 指标 与 降雨 有 没有 关系 ? 
@) 主 程序 


10 DATA 3S,4 
20 “DATA 20，5,5,0 
30 DATA 5,20.10，5 
40 DATA 5,5,10,10 
so 60SUB 1000 

6O END 


地 和 检验 子 程序 - 
井 计算 结果 : 


DRUN 

广 =: 操 
芭 闪 户 及 全 (D-Di)=1S。314 FAPA 2 DOS) =12。3OO 
芒 侣 户 及 一 富 二 4 。 与 

二 于 2O。 it 只 总 握 三 


由 于 X%Y2 之 Xi.oi， 说 明 预 报 指 标 与 降雨 情况 有 关 ， 即 指 
标 有 一 定 预报 能 力 。 
下 检验 (检验 两 个 母体 方差 的 差异 ) 
(1) 目的 
检验 两 个 正 态 母 体 的 方差 是 否 有 显著 的 差异 。 
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(2) 数学 方法 
设 有 两 个 正 态 母体 N(4，c 和 N(A ，a3 和 )， 要求 
比较 两 个 母体 子 样 的 标准 差 S1 和 S2， 样 本 分 别 为 Xi，X?>， 
，Xnl1 和 YI， Y2，:…，Yn2 


两 个 样本 的 标准 差分 别 是 ， 
机 2 1 竹 ] 二 
9 和 乞 (Xi 一 玉 ) 2 
1 2 
ae 》， (Yi 一 ”? 
统计 量 F 为 : 
F =S1/S3 一 4 一 0 
自由 度 分 别 为 : 
全 =ni 一 1 
f>= 一 no 一 1 


由 f, 和 f2> 以 及 给 定 信和 度 %， 可 以 查 得 置信 限 F 。 由 f， 
f2，c，F( 宇 14) 值 可 查 凡 值 。 若 F>F 。， 则 两 母体 子 
样 标准 差 有 明显 差异 ， 若 F <F v， 则 没有 明显 差异 。 

(3) 子 程序 使 用 说 明 


中 简单 变量 

N 1 一 一 x 样 本 的 个 数 ; 

N 2 一 一 7 样本 的 个 数 ; 

入 x 样 本 的 各 个 数值 ; 
Y 一 一 7 样本 的 各 个 数值 ; 
上 统计 量 


@@ 数据 排列 顺序 
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N1，N2，X，Y 

时 计算 结果 

打印 输出 第 一 自由 度 ( N1-- 1 和 第 二 自由 度 (N2 一 1) 下 
的 统计 量 F 值 。 

合 在 主 程序 中 按 数 据 排列 顺序 给 出 数据 后 ,由 GOs U- 
B 1000 转 本 节 子 程序 。 


(4) 子 程序 
10oc REM F-TEST{AP-6) 
1002 DEF FNP(Y) = INT (Y 10 


00 + D.5) / 1000 
1604 ”READ N1,N2 

1006 FOR I= 1 TONi 
1008 READ X 

1otie Si = S1 + X 

tel2a S2 = S2 + X 2 
toli4 NEXT II 

1b1l6 FOR I = 1 TO N2 
1018 READ Y 

16020 SS = SS + Y 

1622 3S4 = S4 + Y. ~ 2 
1o24 NEXT II 

1026 S8 = (S2 -St 2 /NI) 7 (N 


二 一 示 7 
1D028 5B = (3S4 一 S3”、 2/ N2) 7 (IN 
2 一) 


1oO3SO IF SA SB THENFE = SB /SA 
: GDTO 1134 

1D32 FF = SA /SR 

1034 -PRINT "FSNL 一 4” N2 一 
13”)=" 3 FN RPR 人 F) 

41D3SO RETURN  . 


(5) 例题 
@ 已 知 某 地 1 月 的 平均 气温 为 -12C， 一 14C，-17TC， 
-15C, 一 13C, 一 9C，-190C, -17C，-17C， 一 14C， 
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一 16C， 7 月 的 平均 气温 为 20C，22C，220C，21C，231C， 
240C，230C，2C，2IC，21C，21C， 问 这 两 个 月 气温 的 
方 益 有 无 明显 差异 ? 

@ 主 程序 


10 DATA 11)11 

20 DATA -124 -14， -17，-15,-1S， 二 
19, -17，-17， -14， -16 

SO0 DATA .24523222,2i 


9 和 


忱 1 21 
4 sosbB、 1000 
so END 


时 下 检验 子 程序 (AP-6) 
由 计算 结 


DRUN 
FE (1O TO) = 白 - 日 4 人 4 


由 人 =10，f2=10，Ca =0.05 时 Fo.o5 一 2.98; 由 {f， = 
10,fs =10,a =0.05，0 =0.10 时 4 =6.917, 现 在 算得 F = 
6.84， 所 以 有 近似 为 0.12， 即 1 月 气温 和 ?7 月 气温 的 方差 有 
明显 差异 ， 出 第 一 类 错误 的 概率 为 .5 %， 出 第 二 类 错误 的 概 
率 为 12%。 

FE 检 验 (检验 多 个 母体 数学 期 望 值 的 差异 ) 
(1) 目的 
人 
) 数学 方法 

有 翌 本 5 分 闫 ， 从 人 人 的 均 人 相对 
分 类 平均 值 为 : 
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ni 5j=l 
总 平均 值 为 : 
2 X 
类 内 平均 平方 和 为 : 
1 
S2 | 让 
2 
类 间 平 均 平 方 和 为 : 
SG 7 2 一 二 2 Di(X; 一 X)2 
方差 比 为 : 
上 王 97427133? 
自由 度 为 : 
人 =k 一 1 
f >， 一 0 一 k 
其 中 为 总 次 数 。 


由 fi， f >， 给 定 & 值 ， 从 数理 统计 表 查 得 置信 限 上 。 , 若 _ 
F > 上 。, 则 表示 各 类 平均 值 有 明显 差异 ; 若 F <F ., 则 各 类 
平均 值 没 有 明显 差异 。 
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为 查 得 出 第 二 类 错误 的 概率 6 值 , 须 求 非 中 心 参 数值 少 : 
乡 一 VE 

由 fi ，f>，Cc 和 乡 值 ， 从 数理 统计 表 查 6 值 。 

(3) 子 程序 使 用 说 明 

他 简单 变量 

M 一 一 样本 分 成 的 组 数 ; 

X 一 一 样本 数值 ; 

SP 一 一 总 的 样本 个 数 ; 

F ，PC 一 一 统计 量 。 

@@ 数组 

N (M) 一 一 每 组 样本 的 样本 个 数 ; 

SI (CM) 一 一 每 组 样本 数值 和 。 

图 数据 排列 顺序 

M，N (CM) ，X，… 

轩 计算 结果 

打印 输出 ; 

F (fi，fa) -一 一 第 一 自由 度 f,， 第 二 自由 度 f :之 下 的 
统计 量 F 值 ; 

PC 一 一 统计 量 。 

加 在 主 程序 中 按 数据 排列 顺序 给 出 数据 后 ,由 GOSU- 

B 1000 转 本 节 子 程序 。 


(4) 子 程序 
1000 REM F-TEST(AF~7) 
1002 DEF FNPtY) = INT (Y kk 10 


QQ + 口 , 王 ) /TODO 
toOo04 READ MIM = M -1 
1Oo6 DIM NIM) St(M) 
1O08 FOR I = DTOMHM 
49094100 READ NIT) 
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1QT2 S2 = 曲 

iot4 FORJ = 1 TO NI) 

1016 READ X 

10tB St(TI) = St(I) + 

2 S2 = S2+ XXX 公 

t+DO22 NEXT 了 

1024 SA = SA + (S2 -St(I) ”人 7 
N(I)) 7/ (NI) 一 4) 

to26 S1tI) = St 人 TI) /NTI) 

toD28 SS = SS3 + St(IT) 

103O NEXT 了 

1D32 SS = SSG 7/ (M + 1) 

toS4 9S= SAA (人 (M + 1) 

1D36 FOR TI = 避 TGOH 

103 昌 SB = SB + NI) 冰 (Si1(T) - SS 
0 

toqde SR = SF + NI) 

1042 NEXT TI 

t044 SB = SB / M 

t046 F = SB 7 SA 

t1048 FE = SQR (F) 

t1OSO PRINT "FM o3SP ~- M ~- 1 
"= FN PRF) 

1052 PRINT "PC=" FN POPC)》 

1054 RETURN 


(5) 例题 

@ 某 水 文 站 流量 1951 一 1970 年 的 距 平 值 如 T: 5 ， 一 5 
人 
8，5，8，--8，-2，3， 一 8， 问 三 年 周期 是 否 明显 ? 

@) 主 程序 

因为 计算 的 是 3 年 周期 ， 故 M = 3 ， 并 把 数据 按 三 年 周 
期 先 排列 好 ， 以 便 写 入 主 程序 ， 数 据 排列 成 

5， 一 5，:0 

3，--10 一 3 
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9， 一 4， 2 
95 一 
0 
8， 一 8， 一 2 
3 一 8 
下 面 就 是 主 程序 : 
1 DATA 也 
DO DATA 白 ,， 0 
SO DATA 7，-5, -10，-4， 一 1 强 , 一 强 
40 DATA 7 5 3 一 一 号 日, 屯 


5 GOSUB 1000 
上 END 


CIJ1 


Re 


图 卫 检 验 子 程序 (AP -7) 
昌 计算 结果 

DRUN 

户 《 人 7 二 瑟 (0 王 

户 志 = 全 习 47 


， 由 fi= 2,f=17,w=0.05 时 Foo5 =3.59，w=0.01 

时 Fooi=6.11。 

因为 F =5.05 >Fo.o5， 表 示 可 能 存在 3 年 周期 ， 信 度 
是 5%;， 乡 =2.24 时 ， 查 得 0 一 0.25， 即 可 能 存在 3 年 周期 
的 判断 ， 出 第 一 类 错误 的 概率 为 5 %， 出 第 二 类 错误 的 概率 . 
为 25%% 。 

4.1.2 代数 运算 及 特殊 函数 
阶乘 

(1) 目的 

计算 正 整 数 的 阶乘 。 

(2) 数学 方法 


数值 N 的 阶乘 是 : 

NI =NxXxON 一 1)xGON 一 2) 双 pp XxX3Xx2Xxl 

(3) 子 程序 使 用 说 明 

人 简单 变量 

N 一 一 要 计算 阶乘 的 数据 ， 

K 一 一 计算 出 阶乘 的 值 。 

他 数据 排列 顺序 

N . 

团 计算 结果 

打印 输出 要 求 的 阶乘 仿 。 

命 在 主 程序 的 数据 语句 中 ,给 出 N 的 具体 数值 后 , 由 =O- 
SUB 1000 转 本 节 子 程序 。 

(4) 子 程序 


1oOCC EM NI (CCF 一 日 ) 
toOo2 READ N 
tooc4 FK = 工 
1006 FOR IT = 1 TO RN 
CS 上 二 上 来 工 
TEXT 工 
1012 IF N = 

: ND 
1ot4 PRINT NT 1 FF 
ttlo PRETHRIN 


= 下 HE PRINT 站 和 证 


(5) 例题 
人 求 10 的 阶乘 。 
@) 主 程序 


1 DATA 荆 扣 
2 GOSHUHR 1000 
人 NBD 
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全 求 阶乘 子 程序 (AP -8) 
他 计算 结果 
10!= 3628800 
三 函数， 
(1) 目的 
计算 实数 的 三 函数 。 
(2) 数学 方法 
GD 计算 广 了 数 


oo 


广 (xX) 三 | ertt'-ldt 


其 范围 0 入 x 和 3 ， 利 用 切 比 雪夫 逼近 法 : 


Pm(2+x)=>》 axk+en(x) 
k= 0 
enav=maxj|l en(x)| 

0 <x<1l 

取 n= 10 时 ， 则 sw 委 10- 10， 精 确 度 一 般 达 到 要 求 。 

其 中 : 
.a0 三 1.0 

al 三 0.42278433 

a2 一 0.41184025 

a3 三 0.081578218 

a4= 王 0.074237907 

a5 一 一 0.0002109075 

a6 一 0.010973695 

a7 王 一 0.0024667480 

a8 王 0.0015397681 
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a9g 一 一 0.0003442342 

alo 一 0.0000677106 

@ 利用 递 推 公式 太 Cx+1) =x 广 (x) 求解 。 

(3) 子 程序 使 用 说 明 

他 简单 变量 

2 一 一 给 定 的 自 变量 ; 

G 一 一 2 的 广 函 数 。 

@ 数据 排列 顺序 

2 

轩 计算 结果 

打印 输出 2Z 的 慷 函 数值 。 

图 在 主 程序 的 数据 语句 中 ,给 出 具体 Z 值 ， 由 GOS UB 
9000 转 本 节 子 程序 。 

(4) 子 程序 


9oOoO0 REM 6GAMAIX) AP-9) 

9002 DEF FNPIY) = INT (人 Y 水 19 
二 口 。 三 ) 100 

3004 DIM 全 (9) 


ooe AGO) = 工 

TDODB At) = 一 昌 。.422783433 

Ole AR = 昌 。411t84025 / 
012 后 (3) = 昌 。D8B1LSS7 扣 17 

92D14 A(4) = 日.D742379G7 

3016 AS) = ~ Docoo2loO9075 

301 有 (oo) = 昌 .OtO973695 

3O20O AI7) = ~ 0.0OGOa24667480 

号 口 吧 了 人 (日 ) = 间 。O 避 1S337681t 


924 有 (9) -DOGOGS442S42 
3o2wo AD) = DODOOO771TOC 
DeeagB READ Z 
O3C IF Z 
33 IF Z 


1 THEN 9042 
2 THEN 9038 
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3D34 T=Z 于 
2036 60TG 3044 
3038 了 T=Z 一 1 
32040 GO0TQO 9944 


9042 T = Z 
5644 P = A(10) 
3046 FORK =9TODSTEF -1 


9C4 昌 PR= 杯 上 + 及 (KK)》 
30SC NEXT FK 


3GS2 IF Z = 1 .THEN 2920D64 
DOS4 IFZA =:Q2 THEN 39306000 


2636 6 = 中 

?CSB GOTOD 904e 

TDO6OD 和 = 只 7/ 工 

3062 GOTO 3066 

9oOe4 G= 王 RPR/A(Z 站 (Zr+ 1)) 
3O6c6 RETURN 


(5) 例题 
他 求 Z =2.4 时 的 三 函数 值 。 
@@ 主 程序 


10 DATA 2.4 

20 “60SUB 56000 

x0 PRINT "GM("3Z3 0")="i FN P(G 
4C END 


一 


图 求 太 函数 的 子 程序 (A 上 -9 ) 
@ 团 计算 结果 

DRUN 
_GM (2.4)=1 -24 

三 函 数 的 对 数 

(1) 目的 
x>>0 时 ， 计 算 广 〈x) 的 自然 对 数 。 
(2) 数学 方法 
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序 。 


利用 司 梯 林 〈(S tirling) 公式 : 


1 
InPOO=(x 一 十 )lnx 一 x+ 二 In 2 立 ) 十 


，- 
Er 

(3) 子 程序 使 用 说 明 

@ 简单 变量 

X -一 一 给 定 的 自 变量 

EL 一 一 存放 计算 结果 。 

@ 数据 排列 顺序 

X 

@ 计算 结果 

打印 输出 x 的 六 函数 的 对 数值 。 

合 在 主 程序 中 给 出 数据 后 ,由 GOS UB 9000 转 本 节 子 程 


(4) 子 程序 | 


30oc REM LGAMA(CX) ARF-1O) 

3002 DEF FNPIOY》 = INT (Y 站 10 
GO + 口 .5) / 10 

3COC4 X 局 , 

3006 工 人 
3COGS 

3oticC Z 

931iR I 
23O14 X 

3016 下 

30O18 Z 

32025 SOT 
30D22 X = X 

3024 F = 一 
9026 GOTQ 903 
9028F = 心 


交 


>， = 7 THEN 9028 
OO 


7 THEN 9022 


让 和 
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3G3SOZ=17AX2 

23bs2aA= (( -0.0D0059523809 水 Z 十 
D.Doo79365079)》 站 2 - 口 .Oo277 
7T7ZTTB) 来 Z 

?033L=F+ (X -- 虽 -5) 站 LOG (X) 
-X+O9l8593953 + (A + 昌 -D 
日本 本 汪汪 本 本 )》 / X 

53036 RETURN 

(5) 例题 

人 求 当 x=1.5,3.0,7.5,10 时 的 三 函 数 的 对 数 。 


@@ 主 程序 

410 DATA 1.5,3.0,7.5,10 
20 FORK = 1 TO 4 

30 READ XO 


40 60SHUER 9000 
5 PRINT "LGML "XGO )=" FN P(L) 


on NEXT KK 
7 END 


国 三 函数 对 数 的 子 程序 (AP -10) 
思 计算 结果 
RURN 
L 人 ML。 与 ) = 一。1 全 
LGM(S)=- 69 
|GM(7 .5 写 ) 一 7 。 与 六 
LGMI1IO)=12.8 
LGM 《(x) 即 为 x 的 六 函数 的 对 数值 。 
4.1.3 线性 代数 计算 
求 矩 阵 元 素 的 极 大 值 与 极 小 值 
(1) 目的 
对 于 N 行 M 列 矩阵 
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al1，a12，…… 
3221，3a22， 2m 


A= 


anl，anl2，…， anm 
求 其 元 素 的 极 大 值 与 极 小 值 。 
(2) 数学 方法 
B=max (aij) 
C =min (aiiji) 
式 中 1i=1,2,，…，n ; 
=1,2,…，m。 
) 子 程序 使 用 说 明 
人 电 简单 变量 


一 


如 


B 一 一 存放 矩阵 元 素 的 极 大 值 

C 一 一 存放 矩阵 元 素 的 极 小 值 。 

@) 数组 

AN -1 M -1D 一 一 存放 矩阵 的 全 部 元 素 。 

全 数据 排列 顺序 

N，M,A CN-1，M-1)。 

国 计算 结果 

极 大 值 存 在 B 中 ， 极 小 值 存 在 C 中 ， 打 印 输出 。 

@@ 在 主 程序 的 数据 语句 中 , 按 数 据 排列 顺序 给 出 数据 ， 
然后 人 

(4) 子 程序 


3000 REM SUB1 (AP 一 11) 
32360602 READ NM 
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9004 N 
9006 M 


N 一 上 
:一 


诈 肯 


32008 DIM ACNM) 


3010 FOR TI = TON 
9o12 FOR J = 0O TO M 
3014 READ A(TI,J) 
3016 NEXT 了 

3018 NEXT 1 

5620 C = A(0,0) 

9022 日 = AtO0) 

3024 FOR TI = 0 TON 
53026 FOR JJ = 0 TO M 


93028 IF A(IJ) 


93903590 B = 全 (IJ) 
3032 6GGTGO 3038 


92034 IF AI 9) 


AR 
寺 


9036 C = AI J) 

9038 NEXT 

90409 NEXT II 

3042 PRINT “max="; 忆 


纺 


044. PRINT "min=23C 


3046 RETURN 
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(5) 例题 
人 给 出 拓 阵 

[10 0 5 一 36 
103 4 10 一 27 
8 6 5 7 一 18 


| 

0 1 3-60 9 

[12 3 4 5 

求 元 素 的 极 大 值 与 极 小 值 。 
@@ 主 程序 


B THEN 9034 


C THEN 232038 


二 已 2 :51 0 -610 3 41 


20 人 -27,8,6,5,7,-18,4,9,-12， 
1 4 

30 DATA 0,1，S,-60,9,1,2,S,4，5 

460 “60SUB 9000 

so END 


人 
井 计算 结果 


LiIRUN 
们 己 X 二 1 从 
fn im 二 ~ 如 


求 行列 式 的 值 


(1) 目的 
计算 n 阶 实数 行列 式 的 值 。 
) 数学 方法 
采用 扫除 法 把 算 阵 化 为 三 角 此 阵 。 
设 抢 阵 是 (aii} (fj =1 一 an) 
P =anmw (m=2 一 mn) 
q4=ain/P (i=1 一 mm 一 1) 
aiij 一 aij 一 9q' ami (j= 1 一 上 ) 
计算 得 出 ai = 0 (Ci <j ) 
因此 ， 行 列 式 的 值 DET 二 a11” 3a22。 333，…ann 
ee 
(3) 子 程序 使 用 说 明 
D 简单 变量 


D 一 一 存放 行列 式 的 数值 。 
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@ 数组 . 

AN -1，N - 1) 一 一 存放 行列 式 的 全 部 元 素 。 

全 数据 排列 顺序 

N，ACN--1，N-1) 

全 计算 结果 

打印 输出 行列 式 的 值 DET。 

回 在 主 程序 的 数据 语句 中 , 按 数 据 排列 顺序 给 出 数据 ， 
然后 由 GOS UB 9000 转 本 节 子 程序 。 


(4) 子 程序 
DoeoD REM DETERMINANT AR 一 人) 
吕 0 富 DEF FN 户 上 YY) = TITNT 了 T (YY 炒 10 


人 十 口 。5) AT 
20D04 READ N 
3oOoOwNN 一 1 
DooOB DIM AN N) 
?ol FOR TI = TO AN 
3pDt2 FORJ = 口 TO N 
3oti4 READ 全 (IT 了 J). 
obDle NEXT 了 
9 号 NEXT 工 
9o2eew FORM=N TO 1 STEPR 一 工 
9322 中 及 (MM) 1 
呆 O 人 人 TITFF THEN 9G5S2 
?Do26e FOR IDTOM 一 1 
9o28 只 = AI M) /FF 
5030 FORJI = TO HM 
3032 AT J) = AIU) 一 外 炒 有 (MsJ) 


9o34 NEXT 了 

9036 NEXT II 

20D388 NEXT HM 

9046 D = AGO) 

52542 FOR TI = 一 1 TO N 
3o44 D=D 站 有 (II) 
3046 NEX 本 工 


204 日 PRINT "DET= "yy FN P(D) 
?os50 RETURN 机 
39360352 PRINT “ERROR ， END 


(5) 例题 
中 给 出 行列 式 
4 7 1 8 
5 一 1 2 一 
3 12 -5 
1 4 7 2 
计算 它 的 数值 。 
@) 主 程序 


1 DATA 4 4 7 1 日 ,与 ,一 1 人 ,一 全 
20 DATA 本 12 一 5 61 ,47，2 
DGDSUB 9OOO 
4D END 
蝎 求 行列 式 的 子 程序 (AP -12 
曲 计算 结果 
DERT = 一 3276 
求 逆 矩 阵 
(1) 目的 
计算 n 阶 矩阵 的 道 矩 阵 
(2) 数学 方法 
设 给 定 抢 阵 是 A=[faiil (ij=1 一 mn) 
aii=aii 十 1 (ii=1 一 n) 
了 =amnm 一 1 (mnm= 1 一 D) 
amji=ani/ 上 了  (j=1 一 0) 


aij 一 aij -tm amj (ti 一 1 一 n,j= 1 一 D) 


aii=aii 一 1 (ii=1 一 ) 

由 以 上 转换 得 出 的 是 原 矩阵 的 逆 和 矩阵 。 若 转换 中 P= 0 
则 中 止 计算 ， 打 印 出 错误 讯息 。 
(3) 子 程序 使 用 说 明 

人 简单 变量 

N 一 一 和 矩阵 的 阶 数 。 

@) 数组 

AN- 1，N=- 1) 一 一 起 始 存放 原始 矩阵 的 元 素 ， 
最 后 存放 逆 和 矩阵 的 元 素 。 

全 数据 排列 顺序 

N，ACN 一 1，N 一 1)。 

人 曲 计算 结果 

打印 输出 逆 和 矩阵 的 全 部 元 素 。 

加 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 数据 ， 
然后 由 GOS UB 9000 转 本 节 子 程序 。 

(4) 子 程序 


CO REM INVERSE MATRIXIAF-1S) 
300 READ N 

390oc4N=N 一 1 

3o0Oe DIM AINN) 

93008 FOR II=OTONRN 
901D0 FOR JI = OO TON 
3ot2 READ ACT J) 

3014 NEXT 

320Ol6 NEXT I 

2019 FOR I= 口 TO 
39e2o AI I) = AI I) + 1 
3022 NEXT 工 

2024 FOR M = 品 TON 
oac2eP= AM M) 一 1 

3O2 昌 IF = CO THEN 39396076 
30OxsCO FOR JI= 口 TON 
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3632 AMJ) = A(M,J) /7 P 

3634 NEXT 了 

3036 FOR IE = OOTON 

3039 IF TI = M THEN 9048 

59040:Q = AtTM) 

32042 FOR J = OOTON 

3044 AT JI) = AT JI) 一 日 冰 .COM J) 


3046 NEXT 了 

9048 NEXT 1 

905C NEXT M 

5052 FOR TI = 0 TGN 

9054 At(I,I) = A(I,I) -1 

9oS546 NEXT II 

5058 FOR I = OO TON 

9o6ao FORJIJ = oOTON 

9062 PRINT "AT + 14130233J + 1 
"= (IT J)， 

9664 NEXT 了 

5o066 NEXT II 

9048 RETURN 

9070 “FRINT "ERROR" :END 


(5) 例题 

四 求 11 -2 0 
-1 3 2| 的 逆 矩 阵 
1 -1 4 

名 主 程序 


1 DATA Sy1 -2 0:-1， 3 2 11，4 
20 GDSUB 93960600 
SC END 


@@ 计算 着 矩阵 的 子 程序 (AP -13) 
图 计算 结果 

DRUN 
A(1,1)=7 41y2)=4 


A(1,S)=-2 
A(2,2)=2 
A( 了 1) = 一 1 


全 (本 本) 一 。 己 


着 和 托 阵 为 : 
7 4 
3 2 
一 1 -0.5 
求 矩 阵 乘积 
(1) 目的 
求 两 称 阵 的 乘积 。 


(2) 数学 方法 


上 行 1 列 的 矩阵 A 与 1 行 na 列 的 矩阵 B 的 乘积 为 中 行 n 


列 的 和 玫 阵 C: 


ail 321…al1 


am1am2 …anml 
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下 ?21 322“"…82 


内 (2，1) = 卫 
及 (2 SS) = 一 1 
A(3,2) =-. 瑟 


且 沁 
三 江 
0.5 


bl， bi …bn 
ba bs。…bszn 
ba bi …bin 
1 
CC12 951n 
C21C22 Co2n 
CmiCm2 Cmn 
《1 一 1,2， mm ; 
] 三 1,2， | 


(3) 子 程序 使 用 说 明 

人 简单 变量 

M 一 一 矩阵 A 的 行 数 ; 

世 一 一 和 矩阵 A 的 列 数 ; 

和 N 一 一 矩阵 B 的 列 数 ; 

B 一 一 矩阵 0 

包 数组 ， 

A(M- 1， 革 -1) 一 一 此 阵 A 的 各 元 素 值 ; 

C (M - 1，N -:1 ) 一 一 存放 些 阵 乘积 的 各 元 素 值 。 
侠 数据 排列 顺序 

M，L，A(CM-1，L-1) N，B。 

井 计算 结果 

打印 输出 矩阵 乘积 的 全 部 元 素 。 

@ 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 数据 ， 
后 由 GOS UB 9000 转 本 节 子 程序 。 

(4) 子 程序 


3000 REM MATRIX PRODUCT (APF--14) 

2002 DEF FNPIY) = INT (YY 和 10 
O 〇 t+ .SS) /10o0 

3004 READ M,L 

OO M = HM 一 

?OUOB L = 上 L 上 一 1 

3olo DIM AM:L) 

9501l2 FOR IT = DTGO HM 

3014 FOR JIJ= DTOL. 

393Qli6 READ 有 (IJ) 

3o018B NEXT 了 

93020 NEXT I 

93022 READ N 

DO24N= 有 N 一 1 

9626 DIM CO(MN) 
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9028 FOR I= DO TOL 

53030 FORJ = DTON 

9032 READ 吾 

9034 FOR K=O TO HH 

9036 C( 人 JI 一 CIK JJ) + A(KI) 站 日 


9038 NEXT K 

904G0 NEXT 1 

9042 NEXT I 

9644 FOR TI = 0 TGM 
59504646 FOR J = 0ToN 
9048 PRINT "CGI + 1 + 1 

"= FN P(C(IT,JI) )， 

9050 NEXT 1 

9052 NEXT 1 

9054 ”PRINT 

9056 RETURN 


(5) 例题 


JD 求 以 下 两 矩阵 之 乘积 : 
4 0 .一 ! 一 工 5 
一 3 3 7 一 :6 一 6 
一 ? 2 5 1 4 
5 :一 二 3 
@@O) 主 程序 
1 DATA 4, 
也 人 4:957153 ,37 92,5.5,- 
30 DATA 2 


40 DATA -1 5, -6 -6 1 

8 时 是 4 二 
SO GDSUB 9Goo Se 
< 上 0 END 


多 计算 和 矩阵 乘积 的 子 程序 (AP-14) 
从 计算 结果 
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DRUN 
C (1，1) 到 一 二 LCtt2) 一 te 


C 21) 一 一 昌 C (2，2) 一 ~ 下 
C (本 ，1 ) 惠 卫 CS，2) 一 一 人 7 
C(4，1)m4 (4，2) 一 4 
即 抢 阵 C 为 : 
一 :和 16 
二 
人 
| 43 
求解 线性 代数 方程 组 
(1) 目的 
求解 线性 代数 方程 组 。 
(2) 数学 方法 


采用 主 元 素 消 去 法 〈 无 回 代 过 程 ) 求解 。 
设 有 方程 组 AX= 有 


要 | 


a00 a01 0.n0-1 
al0 中 11 nn 一 | 
A = 了 : 
ao-l1,0 an-1.1…an-1 
X0 
XI1 
X 一 
Xn-}i 
bo。 
村 
B = 。 
bn ， 
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首先 找 出 整个 系数 矩阵 A 的 模 最 大 元 素 作 为 主 元 素 ， 然 
后 采用 高 斯 消去 方法 求 得 方程 组 的 解 。 

(3) 子 香 序 使 用 说 明 

GD 简单 变量 

、\ 一 一 方程 组 中 方程 的 个 数 。 

外 数组 

A(N 一 1 ，A) 一 一 按 行 存放 系数 矩阵 A 的 元 素 ， 其 中 
第 n 列 存放 方程 组 的 右 端 项 ， 用 aos，ai, …an-ln 表 示 ; 

S (AN) 一 一 存放 方程 组 的 解 。 

曲 数据 排列 顺序 

N，A(N 一 1，N)。 

曲 计算 结果 

打印 输出 方程 组 的 解 。 

名 在 主 程序 的 数据 语 站 
然后 由 GOS UB 9000 转 本 节 子 程序 。 

(4) 子 程序 


9000 “REM GAUSS(AP-15S) 

9002 DEF FN PtY) = INT (Y 和 10 
GO + 0-S5) / 100 

59004 ”READ NAN 

59560646 DIM AN - 1,N),S(N) ,MIN - 1 
) 

59608 FOR 1=-0TON- 1 

36010 FOR JJ= OoTON 

9012 READ A(I,J) 

9014 NEXT 了 

9016 NEXT I 

9618 60SUB 9022 

9020 END 

9622 FOR TI=0TON- 1 
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90O24 
中 24 
9O2S 
幼 0 
9OXSP 
93OS4 


9O3SO 
9390G38 
04OD 
呈 42 
044 
93040 


9048 
9050 
9052 
9054 
9056 
5058 
9060 
9062 
9064 


?oOe 
9 如 号 
07 
7 
93O7 


又 心 7 扩 
吕 心 7 弓 
祁 人 各 品 
呆 避 电导 
纺 己 乌 寻 
?BO 
人 0 人 SB 
9D93 吕 
咏 口 9 屏 
吕 作 呈 奸 


工 

人 

和 (TD) 
FORJ=ITON 一 革 
FOR KK 一 DOTON 一 工 


人 居 站 
革 生 


IF ABS (人 AtJkK)) 、 二 


(E) THEN 9042 
E = 后 (J,K) 
@ = 长 
P = 了 
NEXT KK 
NEXT 了 


IF ARBS (人 E) > 1OE 一 10 THEN 


90S2 


PRINT "NO UNIQUE SOLUTIGN"” 


STGOP 

IF P = I THEN 9064 
FORK = 0 ToN 
S(K) = At(IT,K) 
A(T,K) = (PK) 
AtF,K) = S(K) 

NEXT 长 

FOR J==-D0TON- 1 


IF JJ = TI THEN 207 


IF AQ) = 0 THEN 29296078 


R=AdR) /AT Q) 


FOR K = OO TO N 
Atd:KE) = Ad K) - 
NEXT K 

NEXT 了 
M(I) = 

NEXT I 

FOR T = OOTON-1 

虽 = MI) 

StB) = AtIN) / AT,B) 


NEXT 工 
FORQ=QDOTON - 1it 
已 REINT 1 X 人 司 1 


ACTK) 六 只 


FN P(S 


2 


《上 @) )， 
DUO9c NEXT 
?390938 RETURN 
(5) 例题 
b 设 有 方程 组 AX=B 


式 中 ， 
7 
A = 三 1 0 3 
5 2 1 
3 
B =| 10 
12 
解 此 方程 组 。 
人 @@) 主 程序 
1 DATA 了 Qt, 
20 DATA 1 0 SS 1 
30 DATA 瑟 ,2,1,12 
4 GD0OSDURB 53060 
SO END 
地 解 线性 代数 方程 组 的 子 程序 ( AP-15) 
人 曲 计算 结果 


X1=1 X2=2 XXX3 3 
4.1.4 方差 分 析 
单 因素 方差 分 析 


(1) 目的 
如 果 只 有 一 个 因素 分 趾 个 水 平 、 类 或 等 级 做 试验 ， 每 个 


水 平 重复 不 同 次 数 ， 可 通过 方差 分 析 检 验 这 不 同 水 平 对 试验 
结果 的 影响 有 无 显著 差异 。 
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(2) 数学 方法 
若 单 因素 A 有 咱 个 水 平 ， 每 个 水 平 重 复 次 数 分 别 为 n， 
IL2， nm 试验 总 次 数 为 N， 有 


N = ni= ni+ n2 十 .十 fm 
各 水 平 各 次 试验 值 为 xi 
i 为 试验 水 平 ， 1 一 1, 2，…， Im; 
j 为 每 个 试验 水 平 重 复 序号 ，j =1,2,…，ni; 


第 i 水 平 观测 值 的 总 和 记 为 xi= 呈 x ii 


] 


性 


个 体 平方 和 ; 


各 水 平 之 间 平方 和 ，S \= Q-P 


误 郑 平方 和 ; Se=R-Q 


总 平方 和 : ， Sr=R-P 
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它们 的 自由 度 分 别 为 :  - 
[=m 一 1 fc=n 一 mr=n 一 1 


进行 F 从 验 : 


人 人， mn 一 Im 

R-Q mm 一 1 

若 下 (1 [<F os， 则 认为 这 几 个 水 平 对 于 试验 结 
果 的 影响 没有 显著 差异 ， 否 则 ， 差 异 显 短 。 

(3) 子 程序 使 用 说 明 

GD 简单 变量 

M 一 -一 该 因素 的 水 平 数 目 ， 

X 一 一 各 水 平 样本 数据 ; 

FA -一 一 第 一 自由 度 ; 

FB 一 一 第 二 自由 度 ; 

F 一 一 统计 量 。 

人 @) 数组 

N1L(M - 1 一 一 各 水 平 样本 数 月 。 

包 ) 数据 排列 顺序 

M，NI(CM--1),X， 

井 计算 结果 

打印 输出 在 第 一 、 二 自由 上 度 下 统计 量 记 值 。 

怨 ) 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺 订 给 出 数据 ， 
然后 由 GOS UB9000 转 本 节 子 程序 。 1 

(4) 子 程序 

?950D REM SIN.ELE.ANAG。(AF-16) 

920062 DEF FN P(Y) = INT (Y 水 10 

OO + 癌 ,5) /1DOO 


36004 READ HM 
3OC NM=HM 一 1 
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9608 


DIM N1(M)，A(M) 


全 
也 


9olD FOR I = 0D TO M 

9012 READ N1(IT) 

9014 FOR J = 1 TO Ni(I) 

9016 READ X 

9018 AT) = CI) + X 

9020 R=R+X 全 

9022 N= NT+ 1 

9024 NEXT 可 

39026 PP = 户 + AT) 

SC02B Q=BQB+AI) ”2 /RNL(I) 

9030 NEXT I 

9032 P= PP ”~2 /N 

9034 SA = 日 -FSB = R- 8:ST 
- 中 

92036 FA = M:FBE = N - M -~- 1:FT 
-1 

9038 F = SA 冰 FB / (SB 站 FA) 

93040 PRINT "FF SFE = FN 

Pt(F) 
23042 RETURN 
(5) 例题 


人 吉林 省 8 月 平 艾 雨量 从 1951-_1973 年 资料 看 有 三 年 
周期 ， 用 方差 分 析 方 法 检验 有 无 三 年 周期 ? 
1951 一 1973 年 雨量 距 平 值 为 ( 设 采用 简化 的 数据 ): 5， 
3，--10，-3，9， 一 4 2，5， 一 1， 


人 


二 


AR 


8 ， 5 ， 8 二 人 3， 


元 8 


校 三 年 周期 排列 ， 即 为 三 个 水 平 下 的 试验 : 


5 一 8 二 
3 过失 二 洛 
9 一 4 2 
9 二 计 二 :| 


281 


8 一 8 2 
3 一 8 二 
2 2 


地 主 程序 


1 DATA 马 

2 DATA 日 ,本 39， 一 ,信人 2 

SO DATA 日 ，5, 一 1 一 4 一 1t， 虽 , 一 ,- ,一 
: 1 

4G0 DATA 7， -2 -3 2 -1 一 2，-3 

SO .GDSUB 9000 

ooD 上 ND 


图 单 因素 方差 分 析 子 程序 (AP-16) 

人 计算 结果 

F(2,，20) =5.314 

查 表 得 Fu。05(2, 20)=3.49， 故 FE >F。.%s， 说 明 吉 林 
省 8 月 降水 量 有 明显 三 年 周期 。 

4.1.5 回归 分 析 
相关 系数 

(1) 目的 

求 变量 之 间 的 相关 系数 。 

(2) 数学 方法 

若 有 变量 xi(i=1l,2,…，M) 个 ， 它 们 各 有 N 次 观测 值 ， 
分 别 为 xij (j =1,2,…，N)， 另 有 变量 y， 也 有 N 次 观测 
值 ， 分 别 为 yi (j =1,2,…，N)， 则 各 个 xi 与 了 的 相关 系数 
为 ， 
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Ri=( 开 sur- 郊 人 // 


(3) 子 程序 使 用 说 明 

@ 简单 变量 

M 变量 x 的 个 数 ; 

N 一 一 每 个 变量 观测 样本 数目 ; 

X 一 一 变量 x 观 测 值 ; 

R 一 一 各 个 变量 x 与 y 的 相关 系数 。 

四 数组 

Y(N 一 1) 变量 y 观 测 值 。 

全 数据 排列 顺序 

M，N，Y(N 一 1),X 

辐 计算 结 : 

打印 输出 每 个 变量 x 与 y 的 相关 系数 值 。 
图 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 数据 ， 
然后 由 GOS UB 9000 转 本 节 子 程序 。 

(4) 子 程 序 


9o00 “REM CGOR.COF. (AP-17) 
9002 DEF FN PtY) = INT (Y 10 


Q +.S5) 7/ 3100 
2004 READ MININ = N ~ 1 
59090066 DIM YI(N) 
360O8 FOR II=D TON 
9301 READ YI(I 广 
35301412 St = S1 + YII》 
95014 S2 = S2 + YI) ”人 呈 
9016 NEXT II 
-ULSLS 王 Sn -SS ”~ 2 IN + 1) 
ooO2C FOR TI = 1 TO M 
9D22 AD:R=O:IC = 避 
296024 FOR J= DTON 
33026 READ X 
才 


3028 及 = 有 +X 

30 B = B +ecX 2 
530352 C = C + X 站 YI) 
9034 NEXT 了 


3036 Li =C- St 站 AVICON+ 1) 
5038 L2 = B -27(N+ 1) 
9040 R = LI / SGQR (L2 炒 上 ) 

9042 ”PRINT "R(23Ii9)=23 FN PR)， 


9044 NEXT 工 
9646 PRINT 
92048 RETURN 


(5) 例题 

GD 有 两 个 变量 x1 和 x，* 观测 值 分 别 为 
xl: .4，l11，10，7，8,7,，6,，12，7 

Xi 2 3 73 0 55570577 
另 有 变量 yY， 观 测 值 为 ; 
y，15，23，24，21，22，22, 17，26，149 
求 ;， xiy x* 与 y 的 单 相关 系数 。 
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10 DATA 2， 
1 


2 DATA 


SOD DATA 4，1d1ytons 


7 
4 DATA 2 了 76 SS5,07， 
so 60SUE 5000 四 


折 口 “END 


转 计算 相关 系数 子 程序 ( AP-17) 


人 计算 结果 
人 UN 
Ri)e。92 
一 元 线性 回归 
(1) 目的 


愉 (他 ) 王 。 日 1 


有 两 个 变量 x 和 了 ， 用 自 变量 x 建 立 因 变 量 y 的 线性 加 


归 方 程 。 
(2) 数学 方法 


自 变 量 x, 因 变量 y, 有 和 对 观测 ， 其 线性 回归 方程 是 : : 


y 一 :a 十 bx 


令 1 = > xy- > xyYAN 


1、= xz 一 (2x)2/N 
1 ,= 密 7-(27)2/N 


则 x 与 y 的 相关 系数 R =1、/ 让 、. 1， 


于 二 1 


a-=- yyv/N-b. 2 x/N 
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回归 方程 标准 差 S 二 
N 一 2 


(3) 子 程序 使 用 说 明 
中 简单 变量 


变量 观测 样本 对 的 数目 ; 
X 变量 x 的 样本 值 ; 
工 变量 y 的 样本 值 ; 
R 一 一 相关 系数 ; 
A，B 一 一 回归 系数 ; 
S 回归 方程 标准 差 。 


人 @ 数据 排列 顺序 

N，X， 又 ， 立 ，…. 

人 @@ 计算 结 

有 

介 在 主 程序 中 按 数 据 排列 顺序 给 出 数据 后 ,由 GOSUEB 
9000 转 本 节 子 程序 。 


(4) 子 程 序 
9000 “REM LIN.REG。(AP-18)》 
9002 DEF FN P(Y) = INT (Y 10 


GO + 0.5) / 100 
9004 READ N 
9606 FOR TI = 1 TON 
9008 READ X,Y 
5010 S1 = Sl 
9012 S2 = S2 
9014 SS = SS 
9016 S4 = S4 
.9018 S5 = S5 
96020 NEXT I 
3022 Lit = SS - 
39024 L2 = S4 - 


十 十 十 十 十 
发 六 交 必 交 
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3026 LS = SS -一 S2 ”~ 27RN 
93028 R = L1 / SGQR (L2 六 上 LS) 


35030 日 = LL /上 L2 
9032 S= SQR ((1 -一 RA 人 2) 宗 上 LS 7/ 
(N 一 们 )) 


9034 8 = (S2 -日 和 SS1) 7/ N 

59036 “PRINT "R="i FN PR) 

9038 PRINT "Y=" FN P(A)3 +" FN 

PC(B) 于) 水 X1 

9040 PRINT "S="i FN P(S) 

9042 RETURN 

(5) 例题 

@ 基 有 两 组 因子 

xi ，97，47，95，84，96，113，24，16，47，37，42， 
14，23，35，27，85，7 ，113，96，68 

yi:， 34，17，28，25，31，52，8，6，14，9，13， 
3，14，10，9，36，6，24，48，12 

求 它们 的 相关 系数 及 回归 方程 。 

@ 主 程序 


10 DATA 20 
20 DATA 97,34,47，17,95,28,84,25， 


9631 

SOD DATA ttsS2s24，816.G 47，14， 冯 
7 

40 DATA 421314，3， 2 14y SS 1 人 
7y9 

So DATA 89S5， 70011324 90，48。 0 
日 , 12 

6D GO0SUB 9000 

toOC END 


地 求解 一 元 线性 回归 方程 子 程序 (AP-18 ) 
. 昌 计算 结果 


人 


287 


R 民 = .87 
Y= 一 。 呈 与 + (。 妆 与) 来头 
S= 7。 二 守 


” 查 表 得 Rooo=0.679 

因 R 之 R ooot 故 x 与 了 相关 显著 。 
二 元 线性 回归 

(1) 目的 

两 个 自 变量 xi 和 x?， 一 个 因 变量 了 7 ， 用 xi 和 浆 建 立 了 的 
线性 回归 方程 及 其 检验 。 

) 数学 方法 

自 变量 习 ， 六 ， 因 变量 了 Y， 它 们 的 观测 值 为 Xi， xzi， 
yi，i =1l2,…，N，N 为 样本 数 。 若 交 和 交 与 了 之 忆 有 线 
性 关系 ， 则 可 以 建立 二 元 线性 回 归 方 程 : 

yi; 一 bo 二 bl xl i 十 boxzi 

式 中 yi 是 因 变 量 yi 的 估计 值 ，bo，b， _ 电 是 回 明太 和 和 

定 系 数 。 


令 1U= 于 一 ( 志 miAN 
人 
12= 2x 一 (ZXx2D)27N 
1] yy= 1 
SS 
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1 = 2， 内-(> yy 1)27/N 


bi=(lxl2s 一 ll 人 il22 一 1 疡 ) 
bz=(121n 一 by 一 1 人 2 ) 
bo=y 一 byxi 一 bzxs E 
xi，x2 和 了 之 间 的 单 相 关系 数 : 
灿 1 12? 
] 7 


站 | yy 


人 
xi 和 浆 共 % 同 对 因 变 量 了 的 相关 系数 即 复 相关 系数 为 


R = riy 十 r3y 一 2 riyr2vrl2 
3 


1 一 上 2 


回归 方程 的 标准 差 S: 


统计 量 F 为 ; 


第 一 自由 度 为 2 ， 第 二 自由 度 为 N- 3 
(3) 子 程序 使 用 说 明 

J 简单 变量 | 

N 一 一 每 组 变量 的 样本 个 数 ; 

B 0, B1，B2 一 一 回归 方程 系数 ; 

XI 与 xz 的 单 相 关系 数 ; 
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R 和 A 


xi 与 了 的 单 相关 系数 ; 


RB x? 与 y 的 单 相关 系数 ; 

RR 一 一 复 相关 系数 ; 

下 统计 量 ; 

S 一 一 回归 方程 标准 差 。 

@ 数组 

x (2，N 一 1) 一 -存放 自 变量 及 因 变 量 的 数据 ， 因 
变量 数据 放 在 最 后 。 


全 数据 排列 顺序 
~“N,，X(C2，N-1) 
全 计算 结果 
打印 输出 回归 方程 表达 式 、 单 相关 系数 、 复 相关 系数 
(CRxlx2. 7、 统计 量 F 和 回归 方程 标准 差 。 
@@ 在 主 程序 的 数据 诸 句 中 , 按 数据 排列 顺序 给 出 数据 ， 
然后 由 GOSUB9000 转 本 节 子 程序 。 
(4) 子 程序 . 
2DoOo REM TWO ELE.LIN.REG。(AP-19) 
Do DEF FFN FIY) = TITNT (Y 六 开口 
站 十 昌 。 号 ) /1 
3200C4 READ N 
DOCD NA 有一 1 
3930D8 DIM Xe2sN) SS1 (2) SS2 (人 2) 
3 FOR TI = OOTO 2 
.902 FORJIJ = TON 
93014 READ XITJ) 


390ote NEXT 可 
clB NEXT TI 


?ea FOR IT = TO 2 
3ox2 FORKR = QTQON 
5024 St 人 (TI) = S1(TI)》 + XITyk) 


吕 虽 折 NEXT 
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93o28 FORJ=I TO 2 

3D30O FOR KE = 口 TON 

台 避 到 S2(T，J) = S2Q6I,J) + XI K) 六 
X (可 ks) 

36034 NEXT K 

5036 NEXT 了 

3933 呈 NEXT 工 . 

304D Lt = S2tOsD) 一 S1(D) 阔 St (OO) 


/Nt+ 1T) 

3042 1L2 = S2tQl) 一 StoO) 于 S1tt) 
/ (+ 1) 

36044 L3S = S2(1 1) 一 Si 人 (ti) 炒 S1t) 
/NT+ 1) 

9046 L4 = S240:2) 一 SO) 米 1(2) 
7 (Nd+ 1). 

32390488 LS = S2412) 一 Sttt) 于 S1(2) 
AN + 计 ) 

93Q50 L = 一 S2622) 一 Sl(2) 站 S1(2) 
/ (N + + 土 ) 


35S2 C = LT 末节 一 上 2 来 上 人 
930354 Bl = (L4 站 | 一 .上 LS 站 L2) 7 CCG 
3QS6 B2 = (LS 冰 Lli 一 L4 站 上 L2) 7 C 


3058 BO = (3S1(2) 一 Bl 站 Si - 呈 
习 冰 Sttl)》7Av Nd+ 1) 

DOCD R= LA SGQR (Li 来 上 术 ) 

3D6R RAR = L47 SBR (人 Li 六 1Le) 

3064 RB = 3 SGQR (LS 六 LG) 

Dec RPRR = SR (CRAS 沙 RAT+ RB 水 民 
中 一 人 来 RR 玉 民 ) 7 《一 
R 于 愉 )》) 

3668S= SR (( 人 Lo 一 Ri 站 1L 4 ~ 虽 2 


来 上 SS) AN 一 总 ))》 

30O7DF = 口 . 与 于 FRR 沙 RR 冰 (人 N 一 有) 7 
(1 - RR 站 RR) 

320D732 PRINT "Y="3 FN RCIBO)Y "+ FN 
只 《了 1L)》 来 X1 7 二 (2 下 忆 (BB2)》 3 可 X 
机 

32074 PRINT ”"Rxtiox2="i FN PCR) 

396076 PRINT ”Rdloy=" FN PICRA) 
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3078 FRINT "Rxeay=" FN ERB) 

308D PRINT "Rxtlxasy=sny FN ECRR) 

39082 PRINT "FI2 3N ~- 242) = FN 
PtF》 

3084 PRINT "9=2 FEN PS) 

2DBe RETURN 


(5) 例题 

个 若 有 两 个 自 变 量 %%， x 和 因 变 量 y 
xli=(4，11，10，7，8，7，6，12，7) 
xz=(2，3，7，6，5，5，0，7，1) 
yY=(15，23，24，21，22，22，17，26，19) 
计算 线性 回归 方程 。 

人 @ 主 程序 


+ DATA 缉 

CO DATA 4:11y1D7 日 ,7 esli27 

CO 了 AT 有 3 7， 2 Zi 

如 DATAG 主 司 二 芝 21y22.22,17,26， 
19 

5 60SUB 9 

eD “END 


图 求解 二 元 线性 回归 方程 子 程序 (AP-19 ) 
井 计算 结果 

URURN 

站 二 二。 人 44 呈 十 《来 关 主 》 十 《。 写 嫩 炒 X 公 》 

愉 1 X 避 = 号 祁 

Rx TYy=。92 

Re.y=-Bl 

Rx 1TxXQ2。y=。9 

广 (，C)=CS。71i 

一 。 台 号 


查 数理 统计 表 Fooi(2，6)=10.9 
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由 于 F(2,6)>Fuoi(2， 6 )， 所 以 回归 方程 显著 。 
多 元 线性 回归 

(1) 目的 

如 有 茵 个 自 变 量 XNj ，x2i ，…， Xij，…，xXxni， 其 
中 1 =1 2，m，j=l2,…*N,N 为 样本 数 : 有 因 变 量 yi， 
其 中 j =1，2，…，N， 若 自 变量 和 因 变 量 有 线性 关系 ， 可 
以 有 : 

yj=bo 二 blxii 二 bzx2j 十 … 十 bixij 十 十 bm xmij 
式 中 六 是 因 变 量 yi 的 估计 值 , bu, bj，b2，…，bi…，bm 是 回 
” 归 方 程 的 待定 系数 。 

(2) 数学 方法 
令 : 


111 = 站， xli 一 ( 世 X1li)2/N 
1 2 一 汪 XI1 iX2 和 XIj 下 x2i/N 


于 三 3 X1j Xnmij 一 罗 j >， xm ji/N 
15 二 之 x 人 一 ( 2 xzi)27N 


] 2 三 冰 : X2iXnm ji 一 x2j 2 xmi/N 


= ZXx2i 一 (2 xni)2/N 
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hy= 2 Xiyi 一 >， xii> yiMN 
] 2y 二 冯 许 > 5 人， 太 /N 


] 霹 训 本) 天 语 下 二 罗 疝 2 yiN 


lyy= > 态 --( > yi)27N 


可 得 如 下 代数 方程 组 : 
bill 11 十 b21 12 十 … 十 bmnlin=11y 
bil 12 十 bl12z 十 … 十 bnlzmn 王 12y 


bilin 十 bzlzmn 十 … 十 bnlnmn=]ny 
由 高 斯 消去 法 求 得 bi， b>， bn 
bo=y 一 bl 允 一 byxs 一 … 一 bnXn 


”各 个 因素 之 间 的 单 相关 系数 是 : 


1] 1 
R = 一 一 一 
”人 
Ji .133 
本 
R 民 三 一 一 一 一 一 
1Y 站 [本 等 等 


u= 一 bill ] YY 十 bsl2yy 十 :… 十 bnminmy 
同 归 方 程 的 复 相 关系 数 R y，.12…nm 
RS 


统计 量 F (全 ，f 为 : 
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2 
F(Of fos) = 0 N 一 巴 一 1 
1 一 RYy.12…m Im 


第 一 自由 度 f\=m， 第 二 自由 度 fn=N -mm 一 1 回归 方程 标 
准 差 S“ 


信和 1 一 ua 


N=-m--1l1， 
(3) 子 程序 使 用 说 明 
人 简单 变量 
M 一 一 自 变量 的 个 数 ; 
组 变量 观测 样本 的 个 数 ; 


B0 一 一 回归 方程 系数 ; 
RR 一 一 复 相 关系 数 ; 


S S 一 一 回归 方程 标准 差 。 


@ 数组 
本 自 变 量 及 因 变 量 数据 ， 
S(M)- 系数 : 
RCM,M) we 


侠 数据 排列 顺序 
M，N，X(M，N 一 1 
曲 计算 结果 
”打印 输出 变量 之 间 单 相关 系数 ， 复 回归 方程 表达 式 ， 复 
相关 系数 ， 统 计量 F 和 回归 方程 标准 差 S 9 。 
@@ 在 主 程序 的 数据 语句 中 , 按 数 据 排列 顺序 给 出 数据 ， 
然后 由 GOS UB1000 转 本 节 子 程序 。 
(4) 子 程序 
1000 ”REM MUL.ELE-REG. (APF-20) 


1Oo2 DEF FN FIY) = INT (Y 表 革 
名 癌 十 站 号 ) 7 ED 

1O04 READ My N 

1IOOo N=N 一 1 

1008 DIM XCMN) SiM) S2(MM) LI 
MIMy》 ， 罗 

to DIM SIM) ,HIM -~ 1 RMM) 

10l2 FOR I =D TO M 

lol4 FORJ = OO TON 

1otO READ XI TI) 

toti 唱 NEXT 了 

toO2t NEXT I 


1022 FOR IT = TO H 
io24 FOR J = DTON 
toz2ae Si(I) = S1(I) + XI J) 


toO2B NEXT 了 

to3SC FOR IJ = TI TO HM 

ios32 FORK =DTON 

TO034 S2tI JJ) = S2(I JJ) + XI,K)》 六 
X IE) 

DSS NEXT 发 

iose NEXT JJ 

1640 NEXT II 

1042 FOR I = DTGO H 

1044 FOR J = TI TO M 

10946 L(I JI) = S2(I,J) - S1(I) 交 S 
1tJI) 7 CN + +) 

1048 L(II) = LI IJ) 

LS NEXT 了 

10S52 NEXT 工 

1653 GOSUB 2000 

1OS4 REM GAUSS 

10S6 FOR I=DOTOHM- 1 

1OSB PP = 工 

1Bec 虽 = 昌 

toe2 E = LI,OG) 

10O64 -FOR J= ITODODM 一 1! 
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1060 FFBGR HH 一 口 TGHM -- 1 

1oec9 IF  ABS 人 (Jsk)》)》 芯 二 及 BS 
(E) THEN 1074 

ToO7D E LTyFK) 

1 5272 忆 长 

1CO74 所 可 

10764 NEXT K 。 

tozZbB NEXT 了 

1O8BO IF ABS (E) > 410OE -~ 1410 THEN 
1D8Bc 

1682 PRINT "NO UNIGUE SOLUTION 

1084 ”STOF 

10986 IF 忆 = T 工 THEN 1028 

10OS33 FOR FF = DO TO M 

1090 SIKE) = LI K) 

1092 LIsK)》 三 (PK)》 

to24 LIPkR) = SFK) 

10965 NEXT KK 

to28 FOR JIJ=OTOM ~ 1 

11o9 IFJ= 了 工 THEN ltl2 

了 荆 全 人 IF LItJyB) = DTHEN 二 1 全 

to4 R =LGOG) /LI Q) 

1too FOR kh = 昌 TO H 

1 和 Losk) 一 LIosKE) 一 LIK) 站 民 


拉 托 攻 


1LtD NEXT 上 

ttli2 NEXT 7 

1ti4 HI = 和 

tile NEXT I 

ttiigo FOR TI =OTOM 一 1 
it Ba HII) 

lit22 St(Q) = LI M /LIiG) 
tti24 NEXT TI 

11i2o FOR TI= DTOM -1 
tt2g9 SO = SO + SGS(I) 冰 St(L) 
tt+3SO NEXT I 
ts2 BO = (SL(M) -SGQ) 7/ (N + 1) 
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tt34 PRINT ”Y=( 

tt3soe FOR I=OTOM 一 鞋 

1138 PRINT FN PSCI))”)》 水 X 工 十 
有 

1149 NEXT 工 

14142 PRINT FFN P 户 (BO 2 

tt44 FOR I1=DTOM 一 1 

tt46 LIM = S2(I:M) -~ Si(I) 水 S 

。 1(M) LNT+T + 

1148U=U+ S(I) 水 LI M) 

1tSO NEXT I 

11S2 PRINT 

LitS4 RR = SR (HU7 LIM:M)) 

tl1S5CF= FRR 水 RR 本 (NM 7 (一 
RR 冰 RR) 炒 M) 


1158 SS = SGQR ((LIM,M) - U) /7 (CN 
-~ M) ) 
1160 PRINT "Ry.ti2。 .niMi=23 FN 
.PRR) 
1162 PRINT "FM SN 一 Min)=， 
; FN P(F) 


fl6e4 PRINT "S="; FN P(SS) 

tt16e RETURN 

2o000 REM SIG.COR.COF 。 

2002 FOR I =DTOM- 1 

2004 FORJ = I+ 1 TO M 

2006 R(I,I) = LIJI) / SGR (LI， 
TI) 站 LIJ)) 

2008 PRINT "RSI + 1323 二 
"=" FN PR(I JI) )， 

20410 NEXT 1 

2012 NEXT I 

2014 PRINT 

2016 RETURN 


(5) 例题 
个 自 变 量 xi, x>， xs3, 因 变 量 y 的 数值 分 别 如 下 表示 ; 
和 1 0， 2， 一 1， < 6 ， 3 ， 一 10， 6， 5， 一 2， 
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和 
和 2 一 6， 20， 19， 一 16， 5 ， 一 20， 一 10， 13， 29， 
6， 一 32，11，11， 一 4，3，4， 一 23，4，8， 29 
X3: 2 ， 3 ， 4， 人 AS 2 一 2， 2 ， 2 D， 
3， 二 4 25 0， 一 6， 一 5， 一 5， 二 邓 5 2 
7: 一 8，4，7， 一 7，12，6， 一 14，4，9，3， 
二 4， 人 二 D， 一 11， 一 8， < 一 11， 6 
求 它们 的 复 回归 方程 。 
1 DATA 本 ,2 
20 DATA 0 -1 -6 了 -10,6,5。 一 人 
,SS 1 7，-9,2， -3 004, -9 -5 
30 DATA -6,20,19, -16,5, -20， -10v1 
本 29 一 21ivllo 一 4 了。4， 一 5， 
4 日 ,人 9 
4 DATA 了 ,本 4 一 人 一 全 全， 旺 ， 王 
一 7 
45 DATA -8,4,7,-7,12,6,-14,4,9, 卫 
ti4s 7 35 一 1 -81t -titleo 


5 GOQSUB 工人 OU 
Go END 


图 求解 多 元 线性 回归 方程 子 程序 (AP -20) 
弗 计算 结果 


LURUN 

RR 人 1 人) 一 -已 与 RdtsS)=。2291 
R(1L 4)=。e84 民 ( 本 ) 一 - 双 1 且 
Rev4)=。49 RS 4)=- 与 65S 
ee 


Y=(.。B24) 炒 X1+( .129) 来 X2+(。S993) 水 XS+(。41) 
Ry.i2.--XS=。947 
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“FS 16)=13.535 
SG= 人 44. 41 立 
R(1T,4) 即 为 xi 与 了 的 单 相关 系数 ，R(2,4) 为 x* 与 y 的 
单 相关 系数 ，R(3,4) 为 xs 与 的 单 相关 系数 。 
由 数理 统计 表 查 得 Fo 0(3,16)=5.3, 故 FFo.ol, 所 得 
回归 方程 是 有 效 的 。 - 
逐步 回归 四 
(1) 目的 
逐步 同 归 是 一 种 回归 分 析 方 法 ， 它 可 从 一 组 自 变 量 中 选 
取 若 和 干 个 最 有 效 的 自 变 量 构成 因 变 量 的 回归 方程 。 
(2) 数学 方法 
基本 思路 
。 从 … 组 归 变 量 中 根据 自 变量 重要 性 的 大 小 ， 每 步 选 择 一 
和 进入 回归 方程 。 一 般 地 说 ， 第 上 步 是 在 未 选 的 量 
2 选 一 个 这 样 的 量 ， 它 与 已 选 量 组 成 的 上 元 回归 方程 将 比 
它 任 一 个 量 与 已 选 量 组 成 的 上 元 方程 有 更 大 的 平方 和 。 男 
入 选 的 变量 作 显 著 性 检验 ， 以 保证 选 入 回归 方 
程 的 变量 是 重要 的 ， 如 果 检 验 不 显著 便 停止 挑选 变量 。 本 程 
序 不 仅 考 虑 到 按 变量 的 贡献 大 小 逐一 选 出 重要 变量 ， 而 且 当 
较 早 选 入 回归 方程 的 某 个 变量 随 着 其 后 另 一 些 变量 的 选 入 而 
失去 原 有 的 重要 性 时 ， 及 时 地 从 回归 方程 中 剔除 出 去 。 
在 逐步 回归 计算 中 实际 上 是 用 无 同 代 过 程 的 消去 法 解 正 
规 方程 ， 在 解 方程 的 同时 进行 重要 变量 的 挑选 。 在 消去 过 程 
中 可 以 得 到 一 系列 过 渡 性 回归 方程 ， 且 在 求解 过 程 中 同时 求 
首 矩 阵 。 本 
包 计算 步 巡 
a) 建立 正规 方程 
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计算 均值 


Si=Sii= >》， (Xk 一 Ri)( Xu 一元) 
了 


1 二 三 于， 2，…，Im，ytx 

建立 正规 方程 
SU0bi+Siby 二 … 二 Sinbn=Siy 
Sasibi+Syoby 二 … 二 Snbmn=Syy 


Smib) 十 Sm2bz 十 … 十 Smmbm=Sny 
为 使 计算 有 更 好 的 数字 效果 ,. 可 把 正规 方程 改 为 


fripi 十 rizbz 十 … 十 rmbm=r 1y 
ro2tp 二 rzzpbs 十 … 二 rambmn =ryy 


rnlpbi 二 rm2p2 十 … 十 rmmnbmn=rny 
* 这 里 把 了 看 作 是 形式 为 xy 的 量 
其 中 ri 是 相关 系数 
下 一 
VSi VSiji 
ij 王 1，2，…，m，y 
新 方程 的 解 5: 与 原 正规 方程 的 解 bi 有 如 下 关系 : 
bi=pbiwSyy/VST is=1，2，…， 轩 


相关 第 阵 (ri ) 的 道 矩 阵 (Ci ) 与 离 差 矩阵 (Sii) 的 首 抵 


阵 (Cii) 有 如 下 关系 : 


新 的 残 差 平方 和 ( Q@) 、 回 归 平方 和 ( 姜 ) .贡献 (Yi) 等 值 
都 与 原 值 相差 一 个 比例 因子 Syy 

b) 逐步 计算 

计算 的 每 一 步 先 考虑 变量 的 剔除 ， 仅 当 不 需 吻 除 时 再 考 
虑 引入 变量 ， 在 既 不 能 剔除 也 无 法 引入 的 情况 下 结束 逐步 计 
算 。 

c) 说 明 

在 各 个 变量 贡献 的 显著 性 检验 中 ， 若 临界 值 F。 取得 足 
够 小 〈 特 别 令 F。=0) 则 全 部 变量 都 被 选中 。 如 果 希 望 多 选 
些 变量 ，F 。 可取 较 小 的 值 ， 反 之 取 较 大 值 ， 但 对 于 N 较 小 
时 ， 变 量 个 数 不 应 选 得 过 大 ， 和 否则 不 可 靠 。 本 程序 把 临界 值 
Fu 区 分 为 F; 和 E，，F, 用 于 引入 ，F， 用 于 吻 除 。 显 然 要 求 
FiF，， 和 否则 可 能 导致 某 个 变量 进 进出 出 ， 循 环 不 止 。 本 
程序 用 F, +0.1x10-?7 代替 原来 给 出 的 F 。 

为 保证 计算 顺利 ， 计 算 中 如 遇 到 rii<0.1x10-7 ， 则 xi 
不 考虑 引进 。 

本 程序 由 “概率 统计 计算 ”一 书 〈 科 学 出 版 社 ) 上 的 逐 
步 回归 程序 (BCY 语言 ) 改写 而 成 (B ASIC 语 言 ) ， 主 要 
有 以 下 几 点 作 了 改动 

删 掉 了 计算 残 差 和 偏 相 关 的 内 容 ， 因 此 只 用 一 维 数组 装 
观测 数据 ， 并 对 计算 均值 和 离 差 矩阵 的 有 关 程 序 部 分 的 计算 
方法 作 了 相应 的 改动 ， 这 样 不 必 考 虑 观测 次 数 N 太 多 会 影响 ， 
内 存 ， 故 资料 长 度 可 以 不 限 。 

控制 打印 指示 的 变量 P ?s 的 基本 内 容 保持 不 变 , 既然 删 
掉 了 计算 残 差 的 内 容 ， 所 以 P。 = 1 和 Ps = 4 暂时 不 用 。 如 
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想 增 加 计算 残 差 的 内 容 ， 则 装 观测 数据 的 数组 的 维 数 ， 计 算 
均值 和 离 差 部 分 以 及 控制 打印 指示 的 部 分 都 应 作 相 应 改动 。 
所 有 的 打印 过 程 全 部 改写 。 
(3) 子 程序 使 用 说 明 和 
@ 简单 变量 
M 一 一 自 变 量 的 个 数 ; 
N 一 一 观测 次 数 ; 
S( 显 示 SYY=) 一 一 因 变 量 y 的 距 平 平方 和 
工 (显示 L = ) 一 一 选 出 的 重要 变量 个 数 ， 
P( 显 示 STEP =) 一 一 逐步 回归 执行 的 步 数 ; 
U( 显示 K12= ) 一 一 引入 或 剔除 变量 的 序号 ; 
R( 显示 RY12M) 一 一 复 相 关系 数 ; 
F( 显 示 FE12 = ) 一 一 统计 量 ; 
2Z (显示 S$Y=) 一 一 y 的 剩余 标准 差 ， 
W (显示 F =) 一 一 回归 方差 与 剩余 方差 之 比值 ， 即 
对 Ryan 的 检验 值 ; 
F 1! 一 一 引入 变量 时 所 取 临 界 值 ; 
F 2 一 一 剔除 变量 时 所 取 临 界 值 ， 要 求 F1>F2 
下 一 一 指示 变量 。 若 计算 顺利 ， 则 刁 = 0 ， 否 则 下 <0， 
其 中 瑟 = -1 表示 某 变 量 为 常数 ， 无 法 计算 相关 系数 ;下 = 
一 2 ， 表 示 在 当前 的 临界 值 F,，F， 下 不 能 选 出 重要 变量 。 
PP( 显 示 P123==) 选择 打印 输出 的 项 目 , 由 三 位 数字 
组 成 ， 记 为 PP*P: ， 若 PP =0, 则 不 作 任 何 打 印 否则 ; 
P1=0: 无 打印 。 、 
1: 打印 最 终 的 BI(M) 及 LL，Ryv，E，Sy。 
2: 除 包括 P1=1] 的 内 容 外 , 加 印 Syy、 均 值 (MX 
(M))， 标 准 差 (VX(M) )，xi 与 了 的 简单 相关 系数 ( VYX 
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(MD))， 地 终 的 下 IC(M -1。 


: 除 和 包括 P1=2 加 印 S 与 r ( 即 R 矩 的 内 容 外 ， 
和 和 ii ， 上 三 角 阵 为 rii )。 


4: 除 包 括 P1=3 的 内 容 外 ,加 印 最 终 的 rii( 即 首 阵 
Ci)。 
P2=0: 无 打印 。 
( 暂时 不 用 )。 
P3=0: 无 打印 。 
13: 逐步 印 S ep,Ka ,FL,Ryran FF，Sy。 其 
中 S tep 为 步 数 ，K,: 为 引入 或 剔除 变量 的 序号 (Ka<0 为 易 
除 )，F 2 为 F 统计 量 的 值 。 
2: 除 包括 P3= 1 的 内 容 外 ,并 加 印 每 步 的 B1,TI。 
3: 除 包括 P3= 2 的 内 容 外 ， 加 印 每 步 的 rii 。 
4: (暂时 不 用 )。 
其 中 参数 M，N ，XY，F1，F>，P123 人 
给 出 基本 数据 的 。 
@@ 数组 
XY(M) 一 一 存放 观测 数据 ， 最 后 一 组 是 因 变 量 ; 
B 1(M ) 一 一 存放 算出 的 回归 系数 bo, bi, bm 的 数组 ; 
TI(CM -1 一 一 存放 各 个 变量 t 检验 值 的 数组 ; 
MX( MI) 一 一 存放 各 个 变量 的 平均 值 ; 
VX(M ) 一 一 存放 各 个 变量 的 标准 差 
VYX(MD) xi 与 y 的 简单 相关 系数 ; . 
R(M ，M ) 一 一 存放 R 和 矩阵， 下 三 角 阵 为 S ij， 
阵 为 rii o 


角 
全 数据 排列 顺序 
M，N，XY(CM) 。 
304 


全 计算 结果 

根据 给 显示 标记 P 123 的 不 同 数据 ， 分 别 打印 输出 不 同 
组 合 的 结果 ， 详 见 对 简单 变量 PP 的 说 明 。 

全 ) 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 具体 数 
据 后 ， 由 GOSUB 1000 转 本 节 子 程序 。 


(4) 子 程序 
100D REM STEF REG. (AP-21) 
1ao2 ， DEF FN POY) = INT (Yx 10 


oo + 5) /10oo0 

1004 READ MN 

10Oo06 DIM RM,M), xYCM) VXIM) SSX(M 
) ，VYX (M) MX (M) 

LoOo0B FOR = 口 TO HM 

1DloO READ XxYII): NEXT JJ 

102 FOR I= CTO HM 

iol4 SX(I) = SX(I) + XY(I) 

Lo FORJ = OOTOI 

TolB RIISJ) = RII JJ) + XY(CJ) 其 XY 
(TI) 

1D20 NEXT J: NEXT 工 

1o22 L = L + 1 

1 已 公 4 IF L > N THEN toc8 

1o2e FOR TI = 口 TO HM 

LoaB Mx(I)》 = SXxXI) 7/ N 

1030O FORJ=DTO I 

1D32 有 = RI J) 

1034 RII JI) = 有 一 NX MXCI) 基 MX 


1036 NEXT Js NEXT 工 
1035B FOR I = TOM 
1040 S= RII，I) 

1042 JIFS = OOTHEN 1046 


toO44 YX(I) = SR (S): NEXT I: GOTO 
194 哩 
1046 三 = 一 1: FRINT "E=”E: STOF 


1048 FORI =1TOM 
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工 所 司 口 


二 号 忆 
494 


10956 
1058 
1 如 局 


, 工 口 如 忆 


TOGd4 
1 OO 
106B 
107o 
诗人 7 
1074 
7 
1 避 7 台 
1 口 生 属 
诗 避 全 妆 
1 和 
10S6 
开口 妇 怠 
1D9 


工人 号 也 
工 局 宁 作 


1 36 
已 38 
了 Te 
二 于 癌 忆 
1 二 寻 
1t1Oe 


11toOB 
于 二 土台 


二 二 工人 


D = VX(I) 
FOR J =OTOGOI-1 
Rd,I) = RUI,J) / (D # YX(J) 
) 

NEXT J: NEXT I 

D= SGR (tt /CN -1))》 


FOR I = TOM 
VMX(I) = YXITI) # D 
MYX(TI) = 民 (IM): NEXT II 

INFUT “Fl12S= "FF - 


Fl 一 INT RPRR 7 TOO) 
D=PFR 一 too 头 FI 
F2 = INT (D to) 


FS D 一 19 关 卢 人 

IF Et 2 THEN 41DBO 
VYXIM》 = 1 GOTQ 1c8eo 

工 记 人 THEN 二 ID8B 

GOSUB 1CG938 

GOTOD 11ODS 

FRINT ”SSYY= "FEFN FS) 

FOR = QTO M 

FRINT "MX + 132)=23 FFN 
PCMX(J) ) 。 

FRINT ”YX + 1 = FN 
PFCVX(J) ) ， 

PRINT "YYX SS + 10)=13 FFN 
PICVYX(J) ) ， 

NEXxT J: FRINT : GOTO 1080 
FOR TI = OTO H 

FOR JJ = 吕 TQO M 

FRINT "RSI + 14130923 + 1 
“FFN PICROI JI))， 

NEXT J: PRINT : NEXT II 
RETURN 


FOR I= 口 TO M 
RCI I) = 13YYXII) = YXIM) 7 
VX(I) 


IF TI= M THEN 112 


TI + TO NM 
RtT,J) 


1114 FOR 1 

1116 R(I ,TI) 

1118 NEXT 

tl20 NEXT II 

1i22  STOF 

1i24 LOF = 0:Q = 1 

11l26 DIM TI(M - 1),BICM) 

ii28 INPUT "Fl1="36: .INFPUT "F2="5 
下 

1130F=P+1i1:H = DG -= 10 

tls2 FOR I=OTOM- 1 

1434 TI(I) = 03D = BITI) 

11x36 IFDY IE - 08 THEN 1154 

itse V = (RM,I) 7/ D) # RTM) 

1140 IF VL OO THEN 1146 

1142 IFVz = HTHEN 1154 

1144 H = V:T = I: 6G0TO 1154 


让 红 


D 


1146 TI(I) 

1134B IFG >: -vv THEN 1152 
1150 GOTO 1tS4 

1t15s26= -VC= 1I: 6G0TO 1154 


11354 NEXT I 

itiSo IFL = OO THEN 11664 

1t+5B IF FS 2 2 THEN 1162 

1ieo Y = 2 GOSUB 1240 

1le2 IF FS < 本 THEN 11t66 

tile4 GOSUB 1098 

lleeF= IN-L-1)#+ 上 G/BGQ 

lle8 IFFRR BTHEN 1176 

ll7oF= (IN-L-2x# 上 HA/ (QQ -~ H 
)》 


ll172 IFFY = (+ diE - 08) THEN 
1 人 1 

lit2Z4L=Lr+1sH = TIU = K GDOTO 
Ti 7 人 . 

14176L=L 一 13F = CIU = 开 

1178 DB=17RIREK)SROKEJRE) = 1 


118 
1182 
ilBd4 
1186 
11B8 
于 今 局 
灶 咏 过 
11924 
1196 
1198 
1 人 OO 


人口 之 


1204 
12ODw 


工 妆 如 日 


工 侵 寺 侣 


121 旨 
二 安全 避 
工 妆 人 之 


人 4 
22O 


1228 


也 六 避 


1 中 


人 


工人 了 嫩 
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FORJ=OTDH 
RE JI) = RE JI xD: NEXT 了 
FOR II1= OO TO 计 

IF TI= 上 THEN il936 
D = RISE)》SRCTIT)》 二 

FOR.J = DTO M 
RiTJJ) = RIJ 一 D# RE JJ) 
NEXT 

NEXT 工 
=RM:M):R= SR (tt -总 ) 
NW=N 一 L 一 1) 基 (1 一 QQ) / 
(人 L 共 名 ) 
Z= SR (Gx 上 QQ/AICN 一 L 一 1 
) 》 

IF FL THEN 121t14 

FRINT “STEP= 5P5 SFC 写 )》 3 红 
12= "3U 

人 FT FN FIF) SRFC 

LS 

2 "RYT2M=” FN PR SPC 
SS)5 FF=" 3 FN FIW) 

FRINT "SY= "5 FN F(Z) 

GOTO 1 

IFL= 癌 THEN E = 一 2 GO0TO 
1 
本 吕 

IF FS < 2 THEN 1224 

GOTO 1230 

IF FL = OO THEN 123O 

FRINT "L='5 LS SPFRCL( SS) 2RY1L2 
一 ”3 FN FIR)3 SPG 5) 3 “F= | 
F(W) 

PRINT "SY="; FN F(Z)sY = 上 1 
: GOSURB 1245 


-JPF Pt 4 THEN 1238 


IF PS < THEN GOSUB 1098 
GO0OTO 了 工 衬 冯 


1236 FRINT "E='"SE 

1238 RETURN 

12469 D = D 

ti242 FOR I=DTOM 一 1 - 

1244 IF TI(I) = OO THEN 1254 

1246 X = RISM):EBIC(I + 1) = VYXICI 


)》 其 X 
124B D= BIGI + 1) 闪 MX(I) + 了 卫 
ti25S0O TI(I) 三 XV7V SOR (TICI) # 巴 / 


(N --L 一 1)) 
1252 GO0TO 1256 
123S4 BI(I + 1) = 品 


1256 NEXT I 
1258 BIO) = MX(M) 一 _D 
1eeo IFY= QTHEN 1282 


1262 IF Y: 2 THEN 1266 

1264 GOTO 1274 5 

1266 FOR TI = QTOHM 

1268 FRINT "B("3I3")="3 FN F(BILI 
I))，: NEXT I 

1270 ”PRINT 

1272 60TO 1282 

1274 FOR I = 0 TO M PRINT "B(23 
IJ)="3 FN FI(BI(I))，: NEXT II 
: PRINT 

1276 FOR IT =0TOM- 1 PRINT " 

TOSTIT + 1352)="5 FN PTI(I))， 


1278， NEXT II 
1280 PRINT 
1282 RETURN 


(5) 例题 
人 na ER X2，X3， xi 而 变化 ， 
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10 .9966 


19.5262 


14 .0475 


22 .0982 


18.6183 


11.5199 


19 .5872 


11 .002i 


26 .11 24 


19 .0473 


20.0107 


15 .0608 


25.1103 


15 .0497 


29 .6589 


10.0110 


20 .0772 


25 .0770 


21 18 8 34 22 14.8 15 .03 30 
22 29 1 28 21 20.7 20.1049 
23 18 11 16 32 19.6 20 .0439 
24 16 10 19 34 20.4 20 .0328 
25 18 7 23 14 11.1 11.0243 
26 23 11 29 29 20.7 21 .0738 
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41 40 上 28.9 27 .5991 


28 32 9 15 18.3 18 .6183 

29 36 11 21.5 22 .1481 

30 31 9 ,17.7 17 .6106 
一 一 

31 29 13 28.3 28 .6234 


21 .5472 


要 求 用 逐步 回归 方法 从 这 4 个 变量 中 选 出 起 重要 作用 的 
因子 ， 建 立 y 的 回归 方程 。 
@@ 主 程序 


号 DATA 4， 瑟 忆 

1 DATA 1 7 26udl911。.551S5，1T1，4DD 
4 1 细 .日 

1S5 DATA 21 8,29.17，135.7，19，12，15 
号 21 

20 DATA 271112722.33S2。10， 2 
1 1 3。 

与 DATA 17，8:18,16，11。7，26，1O0， 5 
2 1194 

SO DATA it4 6 14.18,10.628,13,21 
, 34 ,25.。5 


s5 DATA 19.9,13S,29,18.7,12,10,19 


3 日 ， 19.3 
40 DATA 2 9,25,17，15。 和 2 和 11 SS 
人。 了 7 


45 DATA 21,9,18,19,15.S,35,14。24 
,34 29. 日 
So DATA 16，619，14，10.2424,10， 
26,19.8 
55 DATA 22,11。 39.38.25.3,10,7.17 
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,20,3。.7 

60 DATA 18,8,34,22,14.8.29,11,28 
, 2120.7 

465 DATA 18,11， 16,32，19。 eley1o0v1 


与 4 2D。 世 
70 DATA 18,7,23.14,11.1,23，11,29 
四 
75 DATA 25.13.41， 40s28.9: 53329112 
本。 
80 DATA 36,11537，18,21.5,31，9，2 
4st7。7 
BS5 DATA 29,13,14,39,28.3,19,10:1 
1.35,21.6 
DeD G0SUB 1OCO 
SS END 
@@ 计算 逐步 回归 子 程序 (AP -21) 
曲 计算 结果 


RUN 主 程序 ， 显 示 P123= ,车 键入 100( 即 选择 El = 
1，P2 = 0，P3= 0)， 则 运行 片刻 后 暂停 ， 键 入 CONT， 
继续 运行 ， 显 示 F1= “， 若 键入 2.5 则 又 显示 F2 = ,又 键 
入 2.5， 则 运行 片刻 后 ， 打 印 出 计算 结果 ， 如 下 : 

URUN 

情 23OO 


及 REAE IN 1 1 人 2 


DCONT 

Fli=2.5 

F2= 人 .5 

_= 人 RY12M=.997 =2178.075 
SY= .462 

Bt) =-5。11 B(1)=.507 


如 (全 ) = 于 《到 ) = 口 BEB(4)=.501 


由 逐步 回归 计算 (F1=F2=2.5) 选 出 重要 的 变量 是 xi 
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及 x4 ， 相 应 的 回归 系数 是 : 

bl =0.507 b, =0.501 

常数 项 bo= 一 5.11 

即 回 归 方 程 是 ， 

y =b 十 blxij 十 bx = 一 5.11+0.51xl 十 0.50x， 

若 RUN 主 程序 ， 显 示 Y 123= ,键入 400( 即 选择 P1 = 
4，P2=0，P3 = 0 )， 则 运行 片刻 后 暂停 ， 键 入 CONT， 继 
续 运 行 ， 显 示 FI1=，， 若 键入 2.5， 则 又 显示 上 2= ,又 键 
入 2.5， 则 运行 片刻 后 ， 打 印 出 计算 结果 的 另 一 组 合 ， 如 下 : 


DRUN 

P123=400 

SYY=935.265 1 
MX (1) =22.S44 VX (1)=6-.926 
VvYX(1D)=。6O4 MX (3)=9.813 
VX(2)=2.07  ， VvYX(2)=.957 
MX (了 ) =2 本 .25 VXx (3S) =9.058 
VYX (S) =。228 MX (4) =25.469 
VX (4) = 日 .696 VYX (4) = 。766 
MX (与 ) =1 日 .972 VX (与 ) = 与 -49 
VYX (5) =1 

R(1,1)=1497.249 R(12)=.。567 
RityS)=-2t ，， R1,4)=-.0O4S 


R 人 LS)=。6D4 
Re,1)=252.063  RI2,2)=132.875 
R(2，3S)=。208 R(2,4):=.741 

R (2 5)=。957 
RS，1)=40B。125 RS)=T20。75 
RS 3S) =254S.5 RS 4)=。1 
R(3S, 5) = .228 

RI(4.1)=-Bl.lS6 R(4,2)=41. 旨 1 
R(4,S)=244.625 R(4，4)=2343.-969 
R(4，5)=.。76 折 
RS5,1)=712.809 RS5,2)=3SS7.231 
R (SS) =S51.363  R(S,4)=113S.。422 
R (5 瑟 ) =935。265 
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总 民 EAK 工 N- 土工 之 之 


DCONT 
六 土 二 忆 。 与 
F 人 = 人 .5 . . 
L = 人 RY12M= .997 =2178.75S 
SY= .462 
有 ( 吕 ) =- 与 -1 Ti BlL)=。.507 
吾 (2) = B{(S) =O B(4)=-SoO1i 
T(1l)=42。.266 本 (2 人) = 总 T(S) =O 
T(4)=52.4B1 
RtTL)=t。OD2 RI1 2)=- 扣 
R 愉 (1 3S)=- 了 全 15 R(1,4)=.044 
R( 1 , 王 )=。6S9 
民 ( 人 2 1) = 一 -各 R (2 2)=-O9 
- R(2,S)=SE~-OS R{2,4)= 一 -768 
并 ( 富 与 ) = 各 E 一 局 羡 
民 { 本 1) = 一 .人 215 家 (全 ) =5SE 一 DSS 
民 ( 了 SS)=。944 RS，4)= 一 .11 
RS,S)=-Ol4 AS 
R(4，1)=。 口 44 R (4，2)=。 76 
R(4,3S)=。1t1 R(4:,4)=1.002 
民 (4， 号 ) =。79 节 
._ RIS5,1)=-。6S9 展 ( 瑟 ,全 ) =6E 一 操 
- 只 (5 3)=-D14 R 5, 4) = 一 。793 


愉 《号 , 王 ) =7 三 一 马子 


人 与 上 次 运行 一 样 ， 增 加 了 其 它 显示 内 
容 。 

4.1.6 判别 分 析 
逐步 判别 

(1) 目的 

逐步 判别 是 判别 分 析 的 一 种 ， 它 按 逐 步 回归 的 思想 从 大 
量 因子 中 挑选 若干 必要 的 、 最 好 组 合 的 几 个 因子 建立 判别 天 
数 ， 由 此 可 以 判别 某 一 个 个 体 属 于 哪 一 类 。 本 程序 用 于 多 级 
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逐步 判别 的 计算 。 

(2) 数学 方法 

首先 计算 总 离 差 失 阵 下 和 类 内 离 差 矩阵 内， 然后 每 一 步 
挑选 一 个 最 好 因子 检验 ， 通 过 则 选 入 ， 然 后 计算 噜 除 ， 直 到 
不 再 选 入 不 再 剔除 为 止 。 如 一 共 选 了 r 个 因子 ， 则 第 r + 1 
步 就 要 计算 判别 系数 ， 在 计算 判别 系数 时 ， 采用 如 下 的 判别 
未 数 : 。 

7 一 ]ngi 0 十 Cmi Xm 

j =1，2，…，G， 表示 类 

和 

成 为 ， 
j=Coji+CiigI 二 Cnizm 
j =1，2,…，G 
比较 每 闫 的 7 ， 选 其 中 最 大 的 就 判 为 这 _- 一 类 已 
下 =max{yi 
1 委 j 委 G 

(3) 子 程序 使 用 说 明 

@ 简单 变量 

G 一 -一 分 类 数 ，; 

M- 一 一 自 变量 的 个 数 〈 即 因子 数 )， 

N 一 一 每 个 变量 观测 次 数 〈 即 每 个 变量 样本 数 ); 

E 忆 一 一 用 作 选 入 因子 的 上 检验 临界 值 F。， 

F2 一 一 用 作 吻 除 因子 的 开 检验 临 界 值 Fe 

工 一 一 最 终 选中 的 变量 个 数 ; 


1) 详 见 参考 文献 [8 ]。 
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U 一 一 最 终 的 Wilks 的 数值 ; 
X2 一 一 U 的 近似 检验 X2? 值 ; 
R 12 一 一 该 步 引入 或 史 除 的 变量 序号 ， 正信 为 引入 ， 负 


值 为 剔除 。 
P1,P2 


中 键盘 输入 ， 


P1=0， 


，P3 一 一 用 于 控制 打印 输出 的 变量 ， 程序 运行 


其 定义 如 下 : 
不 打印 。 ， - 


1:， 打 印 各 类 的 样本 数 NG (G ) ,最终 的 C(G,M )， 


DMI(G+l1，G+1) ，L，U，XY2，D2HG 


(CGIXG72) FFHG(G 一 1) 关 GV2)。 


2: 


除 打 印 1 的 内 容 外 ， 还 打印 分 类 平均 值 及 总 平 
均值 MX(G +1,M )。 


3: 除 打印 2 的 内 容 外 ,还 打印 初始 的 W(M， 工 


4: 


(M，M )。 
除 打 印 3 的 内 容 外 ,还 打印 逐步 计算 后 的 W(M， 
M),T(M，M)。 


P2=(0， 不 打印 。 
1: 打印 分 类 情况 明细 表 。 
P3=0: 不 打印 。 


1: 
2: 


逐步 打印 STEP ( 步 数 )R 12,F,， LU,X2， 
除 打 印 1 的 内 容 外 ,还 逐步 打印 C (G,M),DM 
(G+HG+1)，D2HG ((G 一 1 兴 G7/2)， 
FHG((G-1 ) 关 G 7/2)。 


， 除 打印 2 的 内 容 外 , 还 逐步 打印 W(M，M)，T 


(M, M )。 
: 除 打印 3 的 内 容 外 ， 还 逐步 打印 分 类 情况 明细 才 。 


凶 5 
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Q (G ) 一 一 存放 先 验 概 率 ， 当 Q (0 )= 0 时 ， 自 动用 样 
本 频率 代替 先 验 概率 ; 当 Q (0)= 1 时 ， 设 为 先 验 概率 相等 ; 、 
若 Q (0 ) 为 其 它 值 ， 则 从 数据 语句 中 读 给 定 的 先 验 概 率 值 ; 

XY(N，M + 1 ) 一 一 存放 六 次 观测 数据 ， 前 M 列 存放 
自 变 量 ， 第 M+ 1 列 存放 原 分 类 号 ; 
C (G，M ) 一 一 存放 判别 系数 ， 未 选 变量 的 系数 为 零 ; 
W(M，M ) 一 一 存放 组 内 离 差 平方 和 阵 ; 
T(M，M ) 一 一 存放 总 离 差 平方 和 阵 ; 
D2HG((G -1T)X 关 G7/2) 一 一 存放 D2zef,f<e=2，3， 
G ， 它 表示 对 第 e 和 {f 两 个 母体 的 判别 效果 ; 
FEHG((G 一 1) 关 G7/2) 一 一 存放 Dzef 的 F 检 验 值 ; 
DMI(G+TLG + 1 ) 一 一 存放 判别 矩阵 ， 同 一 行 的 为 计 
算 分 类 同一 类 ; 同一 列 的 为 原 分 类 同一 类 ， 最 后 一 行 和 一 列 
为 小 计 ; 

MX(G +1, M ) 一 一 存放 各 变量 的 分 类 平均 及 总 平均 值 ; 

N G (G ) 一 一 各 类 的 样本 数目 。 

人 数据 排列 顺序 

G，M，N，Fl,F2,XY(N，M+1)， 根 据 预先 的 要 
求 存放 先 验 概率 值 。 

.和 电 计算 结果 

根据 给 予 显 示 标 记 “P1,P 2,P3= ”的 不 同 数据 ， 分 别 
打印 输出 不 同 组 合 的 结果 ， 详 见 对 简单 变量 P1，P2, P 3 的 
说 明 。 

@@ 在 主 程序 的 数据 语句 中 ， 按 数据 排列 顺序 给 出 具体 
数据 后 ， 由 GOS UB 1000 转 本 节 子 程序 。 

(4) 子 程序 


反 
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1o6co 
10Q02 


1004 
1006 
10o8 


1 


1 马 1 


iot4 
1Dieo 


1OlS 
工 口 2 口 
噩 公 全 


荆 O24 
夺 OO 


1O28 


1030 
1 
1D3S4 


1 口 六 如 
13zB 
10400 
4 公 
1 怠 人 人 4 
1D4 训 
1048 


4 


REM STEPF JUD。(AF-22) 

DEF FN PI(Y) = INT (Y #* 10 
oo + D.5) / 1000 

INFPUT "Fl,P2,PS="5P1,P2,PYS 
READ G, M， N， Fl ,F2 

DIM Q(G6) ， XxY(N,M + 1),C(G,M) 
,由 (M,M) 

DIM T(M,M) ， MX(G + 1 ， M) ,PR(G 
) ,NG(G)》 ， X(M) ， DM(G- + 1 ， G + 1) 


DIM D2HG((G -- 1) + 日/ 2),F 
HG((G -~- 1)x#6/7/2):LGQG) 
INFUT "Qto)="3sQa(o) 

FOR I = 1 TO M+ 1:， FOR J = 

1 TO N 

READ XY(JI): NEXT J: NEXT 

I . 
IF Bo = OOR Q(o) = 1 THEN 
1024 
FOR TI = 1 TO 6:， READ QI): NEXT 
I 


6t=G+1i:Mi=M+i 
FOR I=1TOoOG+1i: FORJIJ= 
1 TG M:MX(I,J) = D5 NEXT J: NEXT 


工 5 
FOR I = 1 TO 6:NG(I) = 0 NEXT 
1 

FOR K = 1 TO N 
H = XY(CK,M1) 

IF (Hti) sx (H- 6) : 
THEN 1038 

STOF 
NG(H) = NG(H) + 1 

FOR I = 1 TO M 
MX (HI)》 = MX(H,I) + XY(CK,I) 


中 
局 


TS 
主 口 与 人 
10S34 
1 GO56 
10586 
1 
Te 
1064 
1O66 


-1o68 
197 


1072 
1074 
1076 


10978 
10980 


TO8B2 
1 口 台 4 
1oOB8C 
1088 
10O9 
1 局 吕 全 
1 OO34 
1096 
1093 
11 CO 
1 1 马 二 
11o24 
工 O 
,LitoS 
1119 
1 全 
1114 


FOR H 


1 TO G 


D=D+ MXIH,I) 
MX HI) MXx(H,I). / NGI(H) 
NEXT H 
MX(Gi,I) =DV/VN 
NEXT 工 
IF Pl1 = OO THEN 1082 
IF Fl < 2 THEN lo80 
PRINT : PRINT. : PRINT : FRINT 
FRINT ” "3 MX(I JJ)=" 
FOR TI= 1 TOG+ 1: FRINT ， 
FRINT "TI="3TI323032K = 
FORJ=+1TGOM:Z = MXICI,J) 
FRINT  FN PIZ) ss = 上 + 1 
.IF 长 THEN 攻 = 口 : PRINT 
NEXT J: FRINT : NEXT I 
FRINT : FRINT : FOR IT = 1 TO 
G: PRINT "NG("I3")="3NG(I): 
NEXT I: FRINT 
FOR K = 1 TON 
FOR I = 1 TO M 
= XYIKE TI) -- MX(GtyI) 
XxtT) = D 
FOR JI=1TOTI， 
TI IJ) = TI J) + D # XIJ)， 
NEXT 
NEXT I: NEXT 其 
FOR H= 1 TO 6 
= NG(H) 
FOR I = 1 TO M 
D1 = MXtH,I) -- MX(Gi,I) 
X(I) = Dx# 上 Dil 
FOR J= 1 TOI 
W(I,JI) = WII,J) + D1 关 XI) 
NEXT 了 


NEXT I: NEXT HH 
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FOR TI = 1 TO M 
FOR J = 1 TOI 
N(I,J) = TI,J) - NI IJ) 
NtJ:I) = WII) 
T(J,I) = TI,J) 


NEXT J: NEXT II 
IF Pi 忒 本 THEN 二 


.GOSUB 152 


Dl = Qto) 

FOR H = 1 T9 6 

IF Di = 0O THEN D = NG6(H) / 
N: GDTO 1142 

IF D1 = 1 THEN. DB 
1142 
D = QI(H) 


LaQatH) = LO9G (D) 


NEXT H 

REM STEFR CAL。 

STE = D:L = 0:EFS = 0.000001 
:UU = 并 
FOR I=1 TO M:X(I) = NEXT 


I 
STE = STE + 1:UMI = 1oo0:UAX 
= _EFS 

FOR TI = 1 TO M 

IF X(I) 。 > oOTHEN 1180 

IF TI,T) “ EPS THEN 1l180 
UI = WII) /TIyI) 


IF UI >》 = EPS THEN 1176 
FRINT “I="5I 

FRINT "UI="SUI 

FRINT "X=" 


FOR J = 1 TO M: PRINT XI 
JRAyX7JI NEXT 
UI = EFS 

IF W(TI,TI) = OO THEN 41412376 


1 ”6G6: 60TO 


1 3 7 


14179 
工 唱 局 
寺 土 母 忆 
1184 
11 呈 6 
1 1 和 各 


11 30 
革 工 咏 之 


于 信人 


T1L SO 


19 
1 人 OO 


12G2 
1204 


IF UI : UMI THEN UMI = UI:I 
MI = I 

GOTO lti8B6 
UI = TI TI) / NI TI) 

IF UI < = UAX THEN 1184 
UAX = UI:IAX = 工 

NEXT 工 
FF=(- UBXA# IN 一 L-- 6+ 
1) 7/ (UNX xx (G -1)) 
IF F :< F2 THEN 1200 
F= (1 - UMI) #* (N-L -~- G) / 
人 UMI x# (和 一 1)) 


IFF YY = (FL + EPS”THEN 1 
吕 与 咎 
L=L+iIR= IMI:Ri2 = R:X( 
R) = 1 

GDTO 1t202 
L=L- isR= IAxX:RiI2 = - 民 
:X(R) = 日 
U=Ux (WR,R) /TIRR)) 
x2= -~-(N1-(L+G) /2 


) # 上 LOG (CU) 

IF PS = OTHEN 1214 

PRINT : PRINT : PRINT 

FRINT “STEP="35STE"R22= "SR1 
25"F="3 FN FF) 

FRINT 二 FN 本 XU) 
"X2=”" 3 FN P(X2): PRINT : PRINT 


D=1l7/ TIRIR):TIR.R) = 1:D1 
= 1 7 WIIR:R)sWIRR) = 工 


FOR JJ = 1 TO HM 
TIR,J) = TIR,J) x# D 
NICR,J) = NIR,JI) x+ Di 
NEXT 可 
FOR TI = 1 TQ M 


IF IT = R THEN 1238 
D =TII;,R):T(I,R) = 0sDl = 
(TsR):WCT。R) = 
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1 人 DOD 


工 妆 妆 侵 
12 了 4 


1236 
12 芋 
1249 
1242 
1244 
1246 
124 旨 
1250 
1252 


1 之 S4 


上 2 忆 各 
1 之 与 号 
1 之 白马 
二 之 白 忆 


1264 


1 26 
1268B 
427 
1 人 7 人 
1274 
1276 
127 
12SO 
寺 人 2 号 忆 
1284 
1286 
12B8 
工 们 呈 品 
二 之 呈 忆 
1294 
129 扣 


FOR J = 1 TO TH 
T(I,J) = 

NI J) = W(I,J) 
》 

NEXT 了 

NEXT I 


IF FS < 人 THEN 


TI,J) -DA TIR,I) 


~ Dll # WIICR,I 


1 盖 4 和 


P = 1: GOSUB 1278 
FP = F3: GOSUB 1384 


IF PS SS THEN 
GOSUR 1352 
GOQTOD 1115 


二 羡 与 已 


REM STEP CAL .END 


IF L = QTHEN FAI = 一 1: 
1276 

FAI = 5 
IF FS 2 = 4 THEN 127O0 
IF Pi = 口 THEN 1266 
FRINT "LU X2=" 


FRINT Li "3 FN PICU)3 9 


FN FPC(X2) 


F = P1: GOSUB 1278 
F = PF2 + 3 GOSUR 1384 


IF Fl1 < 4 THEN 


127w 


IF FS > = 了 THEN 1276 


GOSURE 二 乌 衬 
RETURN 
REM SUB。CCD 
FOR H= 1 TO G 
CO = 间 
FOR TI = 
CI = 口 
TF X(I) 
FOR J = 
IF X(J) 
CI = CI + WIIJ) 
NEXT J 


4 


TO M 


TO fM 


手 天 


已 THEN 1299 


THEN 1296 


#< MX(H;J) 


GOTO 


1296 CIH,I) = CI < (N - 6) 
1300 CO = CO + CI 关 MXCH,I) 

1302 NEXT I 

1304 CIHO) = 一 Cox 上 (人 (N- 67 7 2 


1300 NEXT H 

1308 IF F = OO THEN 40990 

1340 FRINT : PRINT : FRINT "CI， 
J)=":。 FRINT 

1312 FOR I = 1 TO 6: PRINT "IT=" 
TI”2o3K = 0 FORJ=OTO M: 
Z = CI,J) 

1314 FRINT  FN PR(Z)，sK 

1316 IF 攻 = 4 THEN KE = 


二 上 有 十 工 
os FRINT 


131B NEXT J: FRINT : NEXT TI: FRINT 
: FRINT 

13S20 D = 癌 

1322 FORH = TOG6: FORK = 1 TO 
H -1 

1324D=D+1l:D2 = 口 

1326 FOR IT = 1 TO M 

1 了 人 IF XI) = 口 THEN 1332 

1330 D2 = D2 + (CH,I) -CORK,I)) * 

(MX(Hy TI) 一 MXICK IT)) 

NEXT II 

D2HG(D) = Dz 

FHG(D) = D2 x+ ((N-G6- 上 L+ 

1) # NG(H) #_NGIK) 7 (L sx (N 

~ G) +#+ (NG(H) + NG(CRE))》)) 

1338 NEXT K: NEXT H 

1340 IF PP = QTHEN 1350 

1342 FRINT : FRINT ”(H,G) "8 TAR 人 
15)3"D2HG="5 TAB( 30)52FHG=” 
: FRINT 

1344 D = 0 FOR H = 2 TQ G: FOR K 
=1TOH 一 iD=D+1i 
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Se 
1 了 7 


于 了 7 呈 
革 本 74 
1S7G 
137ZS 


二 忆 弗 品 
地 日 之 
1384 
1386 


六 名 日 
139o0 
二 了 宁 全 
于 汪 吕 千 
二 六 号 扣 
工 卫 听 台 


.二 帮 器 怠 


FRINT 有 
15)3 FN FI(D2HG(D))3 TAB( 30) 
3 FN FIFHGD)) 

NEX 了 T kk NEXT H: PRINT 
RETURN 
REM SUB。 PRINT 内,T 
FRINT “W(IJ)=" 

FOR ITI== 1 TO M: FRINT :， FRINT 
下 
上 = 筷 

FOR J= 1 TO M:Z =W(I,J) 

FRINT  FN PIZ)， 

从 二 上 +1t IF 必 二 4 THEN 全 = 
已 3 FRRINT 


NEXT J: PRINT : NEXT I: FRINT 
2 FRINT 

PRINT ”TI JI)= 

FOR I=1 TO M: FRINT : PRRINT 
TH TS 

上 三 总 

FOR J=1 TO M:Z = TI J) 
FRINT _FN PF(Z) ， 

上 二 上 ts IF 二 4 THEN 必 王 


2 FRINT 

NEXT JJ: PRINT : NEXT 工 
RETURN 

REM SUB.CLASS 

FOR II=1 TOGG+ 1: FOR J: = 
1 TOG+Tdi:DMIIJ) = 口 9s NEX 于 
JJ NEXT 1 
FOR RE = 1 TON 
YMAX = 一 1000Q00 

FOR HH 一 + TO G 
YH = LGQG(H) + CIHyD) 

FOR I 工 = 1 TO M、 

IF XI)》 = 上 有 THEN 142 
YH = CH I) < XYICKI) + YH 


1402 NEXT 工 : 

1404 FRIH) = YH 
1406 IF YH < = YMAX THEN 41 
1408 YMAX = YH:HMAX = H 

1410 NEXT H . 


1412 D = 口 
1414 FOR H = 1 TO 6 
1416 PRIH) = EXF (PRIH) - YMAX) 


1418 D = D + FRIH) 

1420 NEXT H 

1422 YMAX = PRIHMAX) / D 

1424 H = XYCKEMi》 

1426 DMIHMAXvH)》 = DMCOHMAX H) + 工 

1428 IF F 二 4 THEN 1434 

4 FRINT 扒 二 村 和 HH= HHMAX= 
HRMHAXI”"YMAX='" 3 FN F(YMAX)- 

1432 RPRINT 

1434 NEXT 片 

1436 上 FOR H 1 TO G 

1438B Dll = 5D2 = 


革 


1440 FOR 上 = 1 TO G 
1442 Di = Dll + DMIH， 上) 
1444 D2 = D2 + DMICKH) 
二 4 NEXT 长 

1448 DMIH,Gli) = Di 
1450 DMIG1,H) 三 D2 


1452 NEXT H 

1454 DM(G1,G1) = N 

1456 ITF FF = CO THEN 1466 

145B PRINT ; PRINT "DM(I，J)=，" 

14a0 FOR TI = 1 TO6G+ 1 FRINT : 
攻 = 0O: FORJ=1TOG6+ 1:2Z = 
DM(I,J): PRINT zsK = 民 + 1 

1462 IF 上 = 9 THEN 人 = 0 FRINT 


1464 NEXT J:; PRINT :NEXT I: FRINT 


1466 RETURN 
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(5) 例题 
GO 设 有 4 个 因子 ,分 成 3 类 ， 各 个 因子 都 有 17 个 观测 样 
本 ， 具 体 数据 见 下 表 : 


X1 X? X3 X4 分 类 
6 一 11.5 19 90 1 
-11 一 18.5 25 一 36 3 
90.2 -17 17 3 2 
一 4 -= 13 54 1 
0 -14 20 35 2 
0.5 -11.5 19 37 3 
-10 -19 21 一 42 3 
0 -323 5 一 35 1 
20 -22 8 一 20 3 
-100 -21.4 7 一 15 1 
一 100 一 21.5 15 一 40 2 
13 ”一 17.2 18 5 .2 
一 5 -18.5 15 18 1 
10 ”一 18 14 50 1 
一 8 -1 16 56 1 
0.6 一 13 26 21 3 
-40 -20 22 一 50 3 


表 中 最 右面 一 列 分 别 为 对 每 组 观测 样本 的 分 类 。 

设 选择 F1= F2= 2， 要 求 用 逐步 判别 方法 挑 选 因 子 构 
造 判 别 函 数 。 

@ 主 程序 


10 DATA 于 ,4，17,2,2 
20 DATA 6,-11,90.2,-4,050， 瑟 , ~10， 
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0,20,-100,-100，135， -5 10, -980 
6 -40 
30 DATA -11.5,-18.5,-17,-15,-14， 
-11.5，,-19，-23, -22,-21.4，-21。 
5,-17.。2 
.35 DATA -18.5,-18,-14,-135,-20 
40 DATA 19,25,17,13,20,19,21,5,8 
,7 diS5,1i8,15,14,16,26，22 
5o DATA 90, -36,，54,，35，37， 一 42，-S 
5, -26, -15.-40,2，18,50,56，21， 
-50 
6 DATA 1,3,2,1, 2 3 3 1 3 122， 
1,1，1，, 了 ,3 
70，60SUB 1000 
80 END 


伟 计算 逐步 判别 子 程序 (AP-22) 

则 计算 结果 

RUN 主 程序 ， 显 示 “P1，P2,P3=?" 若 选择 P1=1， 
P2 =0，P3=0， 则 继续 运行 ， 显 示 “Q(0) = ” 若 键 入 0， 
则 又 继续 运行 ， 打 印 出 如 下 结果 ; 


DRUN 
Fl1,P2,PS=1, 0 0 
(Oo) =O 


NG(1) =7 
NG (2) =4 
NG{《S) = 
LU, X2= 
2 .281 17.154 
CI,J)= 
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II=1: 


一 100。399 仿 一 品 。 自如 与 
癌 

。 忆 己 台 

IT=2: 汪 
73.827 已 一 日 。474 
〇 

。 旧 忆 1 

II 一 本 3 

wOl .oOG7 . 心 了。 7 人 4 
怠 

7 人 1 

(HG) D2HG= FHG= 

(人 1 ) 3 媳 。 加 也 工 号 。47 蕊 
(本 二 ) 3 .7lie 16.074 
(本 了) 1 。 了 与 纺 1 。 4 已 
DMI(I，J)= 

也 已 1 

唱 

分 奸 如 

夺 

姜 口 与 

与 

7 4 和 

17、 


即 计 算得 出 第 一 类 样本 数 有 7 个 ; 第 二 类 样本 数 有 14 个 ; 
第 三 类 样本 数 有 6 个 ， 最 后 选中 2 个 变量 , Wilks =0. 281， 
,2 一 17 .154 
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第 一 类 判别 函数 : 

y12 关 一 100.39 一 9.86Xx* 填 0.95Xy 
第 二 类 判别 函数 ， 

y22 人 一 73.83 一 8.47X? 十 0.80X4 
第 三 类 判别 函数 : 

y3= 一 61.67 一 7.74x2? 十 0.72xX4 
最 后 打印 出 判别 矩阵 ， 即 : 


可 见 判别 所 得 拟 合 较 好 ， 只 有 一 次 〈~ 6 %) 错误 。 
4.1.7 滑动 与 揪 什 


直线 滑动 平均 

(1) 目的 

对 于 观测 序列 数值 做 直线 滑动 平均 ， 滑 动 平均 所 取 点 可 
以 任意 选 定 。 

(2) 数学 方法 

若 试验 序列 为 yo ，y1，y2，…，yi，…，ym， 其 中 7 的 
.直线 滑动 平均 值 为 史 

则 有 开 =a+bt 

式 中 
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”着 是 取 N 点 江 动 平均 ， 则 
c 一 TINTICN/2) 
对 于 c<i<M- 的 序列 值 ， 平 滑 后 的 值 : 


凡 = 再 (7i-e+ yi-etl 十 … 业 yi 十 … 十 yi+c) 


对 于 1<c 的 序列 值 ， 平 滑 后 为 : 


yi=a+bt (t= 一 c， 一 c 十 1，…， 一 1) 
对 于 i >M 一 c 的 序列 值 ， 平 滑 后 为 ; 

凡 =a+hbt .(t=1，2，…，<c) 
(3) 子 程序 使 用 说 明 
@ 简单 变量 


N 一 一 选 定 做 几 点 滑动 平均 ; 

M 一 一 序列 样本 的 个 数 。 

@ 数组 

A fCM -1) 一 一 原 序列 各 个 数值 

B (M -1) 一 一 平滑 后 序列 的 各 个 数值 。 
@ 数据 排列 顺序 
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N，M，A(M-=-1) 

井 计算 结果 

打印 输出 线性 平滑 后 序列 的 各 个 数值 。 

图 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 数据 ， 
然后 由 GOS UB 1000 转 本 节 子 程序 。 


(4) 子 程序 
10009 REM LIN.SMO.(AF-23) 
10062 DEF FN PIY) = INT (Y kk 10 


CDD。5) 7 1 
1604 READ NM 
toOoo M=M 一 工 
100B DIM ACM) B(H) 
1otC FOR LI = DO TO HM 
1912 READ 及 (TI)》 
10914 NEXT II 
toOleCC= INT (N 7 2) 
iodtS FOR I =CTOM -CC 
1oc20O FORJ = -CE TO RC 
Lo022 B(I) = BI(I) + AI + JJ) 
to24 NEXT 
1oO26 BI(I) = BOI) 7 N 
1o28 NEXT 工 


1030 FORK = 一 CTOC 

TO3S2 Tt 一 了 Tt 二 以 来 长 

to34 T2= Ta2+ ACT+ k) 

1O3SG TS = TS 二 长 玉生 (CC + 虑 ) 

10938 T4 = T4+ AM 一 CE + K) 

16409 TS = TS+ 革 于 全 (M -CCG + 八 ) 
1042 NEXT 

1044 FOR II= ~-CETO 一 1 

1046 BICE + II) = TQ2e LA (2 站 CC+ zt) + 


1948 NEXT 工 

103S0 FOR I= 1 TOC 

1932 BIM -C++ IJ) = T4 7/ (2 有 CC + 
41)+ 工 林 TS ATt 


331 


1654 NEXT I 

1056 FOR IT = OO TOH 
1058 PRINT FN P(B(I))， 
1060 NEXT 1 

1062 PRINT 

1064 RETURN 


(5) 例题 

@ 若 有 试验 序列 , 有 25 个 数 ， 计算 其 7 点 滑动 平均 值 。 

尺 环 一 1，2， 1，2， 3，2， 4， 3，5， 4， 3， 
6，7，6，6，8，9，11，9，10， 11，10，12，14, 13 


地 主 程序 


1 DATA 7，25 
20 DATA 1 2，1.2，32 4 354 36， 


7 

3SD DATA 6y6 8 9 11 9 10v1lli1loti2 
4， 13 

40 GO0OSUB 1000 

So 三 ND 


图 计算 滑动 平均 的 子 程序 (AP-23 ) 


@ 计算 结果 
DRUN 
:96 1 .6 1 .75 
“了 4 他. 4 2.86 
3 29 近 。 人 4 本 SS. 84 
4.5S57 4.86 .29 
SS.71 各 -43 7.S57 
扣 日 . 4 9.14 
3.71 1O。29 11 
41.29 1 忆 。 乌 纺 1 2。 7 
1。54 


五 点 三 次 平滑 
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(1) 目的 
用 五 点 三 次 平滑 公式 对 等 距 点 上 由 实验 得 到 的 数据 进行 
平滑 。 
(2) 数学 方法 
对 于 n+ 1 个 点 的 平滑 方法 是 : 


yo 一 和 [69yo+ 4(71 十 y3) 一 6y2z 一 了 4] 
页 = 基 [2(yo+y) 二 27yi++12y2 一 873] 


本 一 
yn-1 一 了 [2 yn 十 yn-4) 


8yn-3 十 12 yn-2 十 27 yn 


一 1 
yn 一 二 [一 yn-4 十 4(yn-3 十 


70 
yn-1) 一 6yn-? 十 69yn] 
其 它 点 由 下 式 计算 ; 
人 5 yi+?) 十 12(yi-l 十 yi 十 17yi 
35 


式 中 [1=2，3，…，n 一 2 

(3) 子 程序 使 用 说 明 

人 简单 变量 

N 一 一 给 定数 值 点 的 个 数 ， 且 N 5 。 

包 数组 

Y(N -1) 一 一 开始 存放 由 实验 得 到 的 等 距 点 上 的 数据 ， 
最 后 存放 平滑 结果 。 

P (N 一 1) 一 子 程 序 中 用 到 的 一 套 工 作 单 元 。 

曲 数据 排列 顺序 
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N，YI(N 一 1)。 
曲 计算 结 
打印 输出 平滑 后 的 数据 序列 。 
全 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 具体 数 
据 后 ， 由 GOS UB 1000 转 本 节 子 程序 。 


(4) 子 程序 
1000 REM PINGHUASS (APF-24) 
1oo2 DEF FN PIY) = INT (Y 水 40 


+ 5S) AL OO 

1D04 READ N 

1000 NAN- 1 

1008 DIM YN) ,PN) 

1o10 FOR TI = OO:TON 

10912 READ Y(I)》 

tt4 NEXT II 

1o014 FORI = DTON 

tt 日 PIT) = YI) 

1020 NEXT I 

1D23 YI(DO) = (69 冰 PIGO) + 4 丈 《PIL 
) + PS)) 一 各 站 P(2) -PP(4)) 

/7 

toO24 Yit) = (2 冰 (PIO) + 忆 (4)) 十 
327 来 上 (1) + 12 冰 PP2) 一 日 冰 
PP(3S)) /35 

1026 FOR TI = 2 TON ~- 2 

10O28 Y(I) = ( -了 (PII -- 2) + 书 
(IT + 3))》 + 1t2 水 《PtI ~ 1 + 
PtTI+1))+1417 冰 PPII)) /SS5 

1030 NEXT I 

410O32 YN ~ 41) = (2 和 PIN 一 4) + 
PIN)) 一 日 下 PN- SS) 二 12 水 
PIN 一 2) + 27 冰 PIN- 1))》 7/ 
与 

41034 YIN) = ( -PIN -4) + 二 求 (P 
tN -SS) + PIN 一 1)) 一 扣 冰 捕 ! 
-2) + 69 半 PIN))》 7 7 


3314 


10936 FOR I= 曲 TO N 

1 98 PRINT "YI 二 180)=" FN PP 
上 Y(I)》)， . 
1o4D NEXT II 

10942 RETURN 

(5) 例题 

@b 用 五 点 三 次 平滑 公式 平滑 下 表 中 的 数据 ， 

xi 0 1 2345 6 7 85 

yiy 54 145 227 359 401 342 259 112 65 
@ 主 程序 


5 DATA 9 
10 ”DATA 54,145,227, 359,401，342，。2 
59,112,65 
15 60SUB 1000 
2G END 
轩 五 点 三 次 平滑 子 程序 (AP-24) 
曲 计算 结果 
URUN 
YLt)=SG。 昌 4 
Y(S) =244.06 Y(2) =1S3。6 
Y(S) =3S9S。46 Y(4)=347.94 
Y(7) =241.51 Y(6)=352.03 
Y(93)=62.09 Y(8) =123.66 
牛顿 向 前 、 向 后 插值 
(1) 目的 
给 定 函 数 yY=f(x) 在 等 距 结 点 xx = xo+ kh 上 的 函数 值 为 
yk=f(xk)yk= 0， 1， AN 利用 和 牛顿 向 前 或 向 后 播 值 公式 
算出 被 插值 点 x 上 的 函数 值 。 
(2) 数学 方法 
利用 差分 公式 算出 n 阶 差分 
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b 向 前 差分 公式 ， 
Anyk=An-1yk+i 一 Aiyh 
其 中 n=12,… ，k=01， … N-1 
图 向 后 差分 公式 ; 
V?yk=Vn iiyk-V nyk-l 
其 中 n=1,2，… ; k=N，N 一 1 …，1 
牛顿 向 前 插值 公式 : 
令 : tt=(Xx 一 Xo)/h 
即 x=xo+th， 则 有 
f(x) =f(xo+ 纯 )=yo+ 下 Ayo+ 一代 革 二 Azyo 二 


tt 一 1)(t-2) (ta+1l) 大 避 
0 


mn1 


1 


f(oO) =fCxn+ thb)= yt+ 王 TVyN 十 2yN 


t(t 十 1)(t 十 2)…(t 二 nn 一 1) vv ， 
mi V nyN 


t tt 十 
一 NT 二 iT Ai+- A2yN-2 十 和 … 


站 DJ 
(3) 子 程序 使 用 说 明 
根据 差分 的 特性 可 知 ， 当 差分 阶 数 达 到 某 个 值 时 ， 例 如 


5 十 工 阶 差分 ， 则 有 : 1A”yk1l 认 2 " 关 10 "， 其 中 m 为 
yk 所 具有 的 小 数位 数 ， 而 所 有 小 于 等 于 r 阶 的 差分 都 不 满足 
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上 述 条 件 。 向 后 差分 也 有 类 似 的 特性 。 我 们 在 使 用 差分 时 ， 
只 应 使 用 到 上 阶 差分 。 为 此 ， 在 本 节 子 程序 中 引用 了 控制 参 
数 正 委 2 5 关 10 nm。 

当 被 插值 点 x 给 定 后 ， 本 子 程序 选取 靠近 x 的 五 个 结 点 
进行 插值 ， 当 x 给 在 区 间 [xi，xi+l] 上 ， ji+ r(C= 了 =4) 
<N 时 ， 则 使 用 牛顿 向 前 播 值 公式 ， 当 i+r>N 时 ， 则 使 用 
牛顿 向 后 揪 值 公式 。 

由 简单 变量 

M 一 -一 给 定 的 被 插值 点 的 个 数 减 一 ; 

N 一 -一 给 定 的 等 距 结 点 的 个 数 减 一 ; 

| 给 定 的 等 距 结 点 间 的 长 度 ; 


已 一 控制 差分 的 阶 数 ， 使 r+ 1 阶 差分 的 多 数 | -入 】 差 


分 值 满足 | A_ riyk | <E， 
P 一 一 差分 的 阶 数 (本 子 程序 最 高 为 四 阶 )， 
N 2 一 一 初 值 为 给 定 的 等 距 结 点 的 个 数 ， 为 程序 中 计算 


某 阶 差分 的 差分 值 个 数 。 
@ 数组 
X (N ) 一 一 存放 给 定 的 结 点 值 ; 
Y (CN ) 一 一 存放 给 定 结 点 上 的 函 数值 ; 
2 (M ) 一 一 存放 给 定 的 被 插值 点 的 值 ; 
A (CN ) 一 一 存放 一 阶 差 分 值 ; 
B (CN ) 一 一 存放 二 阶 差分 值 ; 
C (CN ) 一 一 存放 三 阶 差分 值 ; 
DP (CN ) 一 一 存放 四 阶 差 分 值 ; 
工 CN ) 一 一 计算 差分 子 程序 中 ， 存 放 各 阶 差分 值 ; 


Q CN ) 一 一 计算 差分 子 程序 中 ， 存 放 前 一 阶 差分 值 ; 
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F(M ) 一 一 存放 被 插值 点 的 函数 值 ; 

R (P ) 一 一 存放 插值 多 项 式 的 各 阶 差分 值 。 

伟 数据 排列 顺序 

M, N，H,，E,，P，N2，XN)，Y(N)，2Z2(M)。 

人 曲 计算 结果 

打印 输出 被 插值 点 的 各 个 函数 值 。 

@@ 在 主 程序 的 数据 语句 中 ， 按 数据 排列 顺序 给 出 数据 ， 
然后 由 GOSUB 1000 转 本 节 子 程序 。 


(4) 子 程序 
tDooD REM NENTON TI AP 一 25) 
4662 DEF FNPIY = INT (Y 于 台 


OD 二 曲 。5) AdTOOO 

1004 READ M,N HE,P,N2 

1006 DIM XIN YN ZIM AN BIN 
) CN) DIN) TIN) QCN FIM) ，R 
(《F 己 ) 

1oo08 FOR IT = 口 TON 

too READ X(T) 

10l12 NEXT 

101i4 FOR TIT = 癌 TDON 

40416 READ YIT》 

to NEXT TI 

1020 FOR IT =-D TO M 

1022 READ Z4T) 

1024 NEXT 1 

to26 FOR TI = OOTON 

028 QI) = YIT) 

1030 NEXT I 

1032 GOSUB 1102 

1o3s4 FOR IT = OOTON 

1036 A(TI) = TIT) 

1038 NEXT 工 

to4O Kit = INT (N2 术 吕 .9) 

1042 IF NO > Ki THEN 11422 
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1044 FOR TIT = OO TON 
1046 BIT) = A(I) 

1048 NEXT II 

1050 ”60SUB 1102 

1os2 FOR TI = 0 TON 
1654 B(I) = TI) 

1G564 NEXT II 

1O58 Ki = INT (N2 村 0.9) 
1060 IF NO > K1 THEN 1122 
1062 FOR TI = 0 TON 
1064 Q(I) = B(I) 


1066 NEXT 1I 

1068 60SUB 1102 一 - 

1070、FOR' I = 0 TON 

1072 CT = TI) 

1074 NEXT II 

1076 KL = INT (N2 村 0.9) 

1078 IF NO > Ki THEN 1122 

1o80 FOR I= OO TON 

1082 Q(I) = CI) 

1084 NEXT II 

1086 ”60SUR 1102 

1088 FOR I= OOTON 

1690 D(I) = T(I) 

1092 NEXT I 

1094 Ki = INT (N2 yk 0.9) 

1096 IF NO > Kit THEN 1122 

1098 PRINT "Un 

1100 60TO 1122 

ttO2 Nt = NI + 1 

1104 N2 = N2 ~ 1 

1106 NO = 0 

tl108 FOR I = 0 TO N2 

tl TI) = QtI+ 1 -~ QtI) 

til2 Xl = TI) 

1114 IF ABS (T(I)) >E THEN 1ll1 
8 

ltl6e NO= NO+1 
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忆 R4) 


NEXT 工 

RETURN 

FORJI=OTG HM 

FOR II=QTON 一 1 

IF X(I) > ZitJ) THEN 113S8 

IF XI + 1)<“ ZJ) THEN 113 


S = I 


2 Ri = 一 AS) 


6GBTGO tdt4 

NEXT 工 

PRINT "BUZI" 

S 了 OP 

INPFUT ZJ) 

GOTO 工人 4 

IF S+ Ni > N THEN 1156 
Rt2) = 
RtS) = CS) 


IF S+ Ni > N THEN 1174 
FU)》 = YI(S》 
Tt = (ZI) -~ XIS)) /7/ H 
GGTD 1478 
FtJ) = YIS + 1) . 
Ti= (zt -一 XS + 1)) /7 H 
FOR I = + TO Ni 
IFS+N >N THEN 1196 
K= 人 长 玉 《Ti 一 工 + 1) 
GDTO li88 
K=K 炒 《Tti+I- 1) 
HL = H1l 来 工 
F(J) = FJ) + (KKVAV HL)  RI 


1192 NEXT 工 

1t94 NEXT 

ii496 FOR TI = OO TO HH 
11498 PRINT FN FIO(F(I)) 
120OCO NEXT I 

1202 PRRINT 

1204 RETURN 

(5) 例题 


人 四 给 定 等 距 结 点 xk=-4000+K x 500 及 对 应 的 函数 
值 y，(y 的 具体 数值 见 主 程序 中 数据 语句 15 DATA),k 


-0,1,.… 14。 求 被 插值 点 zij (具体 数值 见 主 程序 ) 上 的 
函数 值 : {(zi)=? j=0,1,2。 
@ 主 程序 


DATA 2,14,500,0.1，4，14 


10 ”DATA 4000, 4500,5000，5500,6000 
,6500 7000, 7500,80DO0 
4 DATA 8500,9000,9500, 10000，105 
oo 11000 
15 DATA 1.39,1.48,1.59,1.69,1.81 
,194 2.10,2.28,2.50 
17 DATA 2.76,3S.D63S.41 3.83S。4.33 
,4 .9 
320 DATA S200,7200， 10700 
25 GO0SUB 1000 
3 END 
余 牛顿 插值 方法 子 程序 (AP -25) 
余 计算 结果 
1.623 2.167 4.558 
拉 格 朗 日 插值 
(1) 有 的 


设 已 知 通 数 y(x) 的 结 点 值 为 xi (1 =0, 1 …，mn) 及 对 
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应 的 函数 值 yi(i =0,1，.…:，n)， 对 于 给 定 的 不 是 结 点 的 x， 
用 一 元 拉 格 朗 日 n+ 1 点 播 值 公式 计算 对 应 的 函数 值 y(x) 。 
(2) 数学 方法 
插值 公式 是 ; 


本 节 子 程序 是 对 m + 1 个 不 是 结 点 的 值 xk(k= 0,1， 

. ，m ) 进行 成 组 搬 值 , 求 出 其 对 应 的 函数 值 yk=y(xu) 

(3) 子 程序 使 用 说 明 

GD 简单 变量 

N 一 一 给 定 的 插值 结 点 个 数 ; 

M 一 一 要 插值 的 函数 个 数 。 

@@ 数组 

X CN - 1 ) 一 一 存放 给 定 的 插值 结 点 值 ; 

Y (CN - 1 ) 一 一 存放 给 定 插值 结 点 上 的 函数 值 ; 

U(CM - 1 ) 一 一 存放 被 插值 的 结 点 值 ; 

V (M - 1 ) 一 一 存放 播 值 结 果 。 

@@ 数据 排列 顺序 

N，M，XCN-1)，YCN-1)，UCGM-1) 

人 井 计 算 结 果 

打印 输出 插值 结 

@) 在 主 程 序 中 按 数 据 排 列 顺序 给 出 数据 后 ， 由 GO5- 
UB 1000 转 本 节 子 程序 


(4) 子 程序 
1000 REM LAGRANGE (AP-26) -一 
1002 DEF FNPI(Y) = INT (Y 站 10 
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aD + 1.S) / 100 

1004 READ NM 

toOooe N = N 一 1 

1 M= 阁 一 1 

1olo DIM XIN) YN UIM)7 VIM) 

1012 FOR I= TON 

1ot4 READ XI) 

101c NEXT II 

totie FOR TI = 口 TON 

1o2oD READ YI) 

1022 NEXT II 

1024 FOR I=D TO M 

toO26 READ UCI) 

1023 NEXT 工 

10309 FORK = DTOH 

toOs2 FOR JI= DTDON 

1D034 上 = 工 

loOxs4 FOR I=OTON 

103B8 IF TI = J THEN 1042 

一 1040L=L 冰 (UKE) 一 XI))》 7 XI 
) 一 XI)) 

1042 NEXT 工 . 

1044 MK = VIK) + |L 下 YIJ) 

1046 NEXT - 

104 日 NEXT 必 

1COcs0 FOR I = D TO HM 

1o52 PRINT FN FIVII))， 

10Ss4 NEXT II 

10OS6 PRINT 

1058 ”RETURN 


(5) 例题 

由 已 知 函 数 如 下 表 : 

X: 一 2, 一 1,0,1,2 

y:， 一 4, 一 2,0,2,4 

求 当 x= 一 1.5, 一 0.5,0.5,1.5 时 对 应 的 函数 值 。 


凶 主 程序 


邱 DATA 5,4 

10 DATA -2 -iD 1 2 -4 -2,0.2,4 
20 DATA -1.5,-0.5,0.5,1.5 

3SD GO0SUB 1000 


40C END 
全 拉 格 腑 日 插值 子 程序 (AP -26) 
曲 计算 结 
一 3 一 1 1 
3 
一 元 三 点 插值 
(1) 目的 
已 知 函 数 yY(x) 的 结 点 值 为 xi(i=0,1，… ，D) 其 对 应 的 


函数 值 为 YX(xi)=yi (ii=0,1，…，n)， 对 于 给 定 的 不 是 结 . 
点 的 值 x， 选 取 最 靠近 它 的 三 个 捅 值 点 ， 应 用 一 元 拉 格 朗 日 
三 点 播 值 公式 计算 出 对 应 的 函数 值 y(x) 。 


(2) 数学 方法 
插值 公式 : 
和 
j=k i=k 3 
i 专 j 
” 式 中 : 
k = 当 x<xl 时 


s 当 xs< xs<xs+1，xX 一 Xs 人 xs+1 一 X 时 
(=1,2,.… ，n 一 2) 

s 一 1 当 xs <x 委 xs 1，x--Xs<xsl 一 X 时 
(S=1,2，…，n 一 2) 

n 一 2 当 x 字 xo-1 时 
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本 子 程序 是 对 凸 上 工 个 不 是 结 点 的 值 (1= 0，1，…， 
mm) 渤 行 成 组 插值 ， 求 出 对 应 的 函数 值 Ji= y ( xi) 。 

(3) 子 程序 使 用 说 明 

@ 简单 变量 

N _ 给 定 的 插值 结 点 的 个 数 ; 

M__ 被 插值 点 的 个 数 。 

@) 数组 

X(N_U -存放 给 定 的 插值 结 点 值 ; 

Y(N_1) -存放 给 定 的 插值 结 点 上 的 函数 值 

U(M-_1) 一 存放 被 插值 点 的 值 

V(UM-UD -存放 插值 结果 。 

@@ 数据 排列 顺序 

N，M，X(IN-I)，Y(N-1)， U(M 一 1) 

人 @@ 计算 结果 

打印 输出 插值 结果 。 

@@ 在 主 程序 的 数据 语句 中 , 按 数 据 排列 顺序 给 出 具体 数 
值 后 ， 由 GOSUB 1000 转 本 节 子 程序 。 

(4) 子 程序 

1000 REM LAGRANGE1LXSIAR-2R7) 

1002 DEF  FN P(Y) = TITNT (人 (Y 冰 10 

00 + 0.5) / 10o00 

1004 READ NM 

10Ocoo N = N 一 1 

COcoB M am M 一 

toblto DIM XIN) YN) ，UIM)。 Y(M) 

t0Ol2 FOR II 0 TON 

tO14 READ XI) 

1Otlo NEXT 工 


101tB FOR II = OOTON 
1029 READ YI(I) 
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1022 NEXT 工 

to24 FOR I= 07TO HM 

1026 READ UHCI) 

toO28 NEXT 工 

1030 FORL = 和 TO H 
1032 FORKkK =OTON 一 SS 
1034 IF UL = XIK + 1) THEN 


1036 NEXT KK 

1038K = N ~ 2 

1040 IF K = 0 THEN 41C46 

1042 IF UL) -~- XIK) > = XIK + 1 
) -~ U(L) THEN 1046 

1044 K= KK - 工 


t046 XO = X() 
1048 Xi = XiK + 1) 
toSD X2 = XK + 全 ) 


1052 P = (UL) - X1) 林 (UL) - X2 
) / ((XG 一 Xi) 来 《XO 一 X2)) 

1054 Q = (UL) - Xo) 和 (UL) -~ X2 
) / ((X1 - XO) (Xi - X2)) 

1056 R = (UL) - XOo) 站 (UL) - Xi 
) 7/ (CCX2 - XO) 来 (X2 一 Xi)) 

1058 VIL) = 已 素 YIK) + 哩 站 YIK + 
1) +RY 人 KE + 2) 

1060 NEXT 上 

10e2 FOR TI = 0TOM 

1064 PRINT 2Y(SU(I) =" FN PL 
V4I) )， 

1066 NEXT II 

1068 RETURN 


(5) 例题 
人 已 知 函 数 如 下 表 : 
xX:， 0.2， 0.24， 0.28， 0.32， 0.36，0.40 


7 了 : 0.19867,0.2377,0.27636,0.31457,.0.35227, 0.38942 
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求 : 当 x=0.22，0.29，0.38 时 的 了 值 。 
@) 主 程序 
邱 - DATA 6 
10 DATA 0.2,0.24,0.28,.0-.32，0.36， 
0O-.40 
1S5 DATA 0,.198967,0.2377,0.27636。90 
.3S1457,0.35227,0.XS8942 
20 DATA 0D.22,0.29,0.3 
25 ”GOSUB- 1000 
YXO “END 
曲 一 元 三 点 插值 子 程序 ( AP-27 ) 
人 井 计算 结 
DRUN 
Y(.232)=。.2tiS Y(.29)=.28 人 多 
Y(.38)= .371 
二 元 三 点 插值 
(1) 目的 
已 知 函 数 f(x, y) 的 第 一 变量 (*) 的 结 点 值 为 xi (不 一 定 
等 距 ， 1 三 0 ， 上 ”9 n ) ， 第 二 变量 (y) 的 结 点 值 为 VYj (不 
一 定 等 距 ， ]= 0， 1 “2 m ) ， 其 对 应 结 点 上 的 函数 值 为 
fi(i=0， ] ， 5 于 0 ma ); 对 于 给 定 的 
不 是 结 点 的 值 ( *，? .分 别 选 取 最 靠近 X 的 三 个 点 ( gxarl 
<qtz) 和 最 靠近 了 的 三 个 点 (yp，Yypt1，yp+z)， 用 二 元 拉 格 
朗 日 播 值 公式 计算 出 对 应 的 函数 值 f(x，y) 。 


(2) 数学 方法 
插值 公式 ， 
WE 
X，y) 三 - 
i=9q 2(J 
与 拟 圭 
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式 中 1，j 选取 方法 与 一 元 三 点 捅 值 相 同 。 本 节 介 绍 的 
方法 可 对 1 二 1 个 不 是 结 点 的 变 元 值 (xx，yt) (k= 0，1， 
…， 1 ) 进行 成 组 揪 值 ， 求 出 对 应 的 函数 值 。 

(3) 子 程序 使 用 说 明 

G 简单 变量 

N 一 -xx 方向 上 给 定 的 播 值 结 点 个 数 ; 

M 一 一 方向 上 给 定 的 插值 结 点 个 数 ; 

L 一 一 被 插值 点 的 个 数 。 

凶 数组 

XI(N-1) 一 一 存放 并 方向 上 给 定 的 插值 结 点 值 

Y(M-) 一 一 存放 了 方向 上 给 定 的 播 值 结 点 值 ; 

F(N-1,， M-1) 一 一 存放 给 定 插值 结 点 上 的 函数 值 ; 

S (L 一 1) 一 一 存放 x 方 向 上 要 播 值 的 点 的 值 ; 

T(L-1) 一 一 存放 了 方向 上 要 插值 的 点 的 值 ; 

W(L 一 )- 一 存放 插值 结果 。 

合 数据 排列 顺序 

N，M，L，X(N-L)，Y(M--1)， 

F(CN-it M-1)，S(L-1)，T(L 一 1) 

个 计算 结果 

打印 输出 插值 结果 。 

@ 在 主 程序 中 按 数据 排列 顺序 给 出 数据 后 , 由 COS UB 
1000 转 本 节 子 程序 。 

(4) 子 程 序 
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二 上 操 合 
号 世人 


已 4 
1 
如 总 全 
王 中 于 台 
1X oOtTe 


芋 品 二 4 
1 
1 
世人 仙 
于 吃 全 全 
二 已 安 寻 
开口 安 白 
1 已 富 8 
二) 术 已 
1 已 术 全 
于 全 世人 入 
工 吕 世 各 
1 03 号 
工 忆 全 心 
芋 全 嫩 避 
主 品 人 4 
1o46 
1 号 44 台 
总 与 吕 


如 写 合 


荆 安 写生 
1056 
1 王强 
De 


OO6 
Oo64 
1066 


REM LAGRANGE2S(AP-29) 
(Y 六 1 


DEF FFN 
DO + 口 。 己 ) 

READ NM， 
N=N 一 
M:=M 一 1 
L 三 一 并 


DIM X(N),Y(M) ,F(N.M) 


《 阅 》 


三 -INT 


A 吕 口 局 


于 L 


L)s NIL)yU(2) VC2) 


TO 


TO 


TD 
TO 


TO 


TD 


FOR I = 9 
READ XI) 
NEXT II 
FOR TI = 0 
READ Y(I) 
NEXT II 
FOR I = 昌 
FOR J = 曲 
READ F(T.J) 
NEXT 了 
NEXT II 
FOR I = 9 
READ S(IT) 
NEXT II 
FOR I = 所 
READ TIT) 
NEXT II 
FOR KE = 9 
FOR TI = 6 
IF S(K) 

1058 
NEXT 

IT:=N-2 
FOR J = 
IF TUK) :< 

1D66 
NEXT 了 

JJ =M-G2 


IF I = 0 THEN 14072 


N 


了 


十 


了 4 


中 


1) 


1 ) 


,S(L) T 


THEN 


THEN 
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1O68 


197O 
1 7 
1 7 人 4 


1C7w 
1C7 
108O 
1 局 旦 忆 
1 所 号 4 
1oO 虽 G 
芋 口 马 蚀 


1090 


上 纪 


二 马 934 


夺 OO936 


1c98 


TtCC 


并 局 忆 
下 于 局 如 
141CG6 


1 1 已 强 
二 寺 工 心 
二 了 二 归 
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NEXT 长 


IF StK) 一 XI) > 
) - SIK) THEN 1072 
I= 工 -1 

IF J = OO THEN 1078 

IF TIK) ~- YI) > 
) - TIK) THEN 1078 
JI=J-1 
XGO = X(I) 

Xl = XIT + 1) 

x2 = XI + 2) 

YDO = YI(D) 

Yl = YI + 1) 

Y2 = YI + 人) 

ULO) = (SI(K) -~ Xi) 
X2)》 / (COXO 一 X1) 间 
) 

U(t) = (S(K) - XO) 
X2) / ((XtL 一 XO) 水 
) 

U(2)》 = (SIK) - Xo) 
Xit) 7/ (CCX2 - XGO) 水 
) 

VtO) = (TIKE) -Yi)》 
Y2) 7 (CCYDO 一 Y1) 家 
-) 

vt = (TIK) -~ YD) 
Y2) 7/ ((Y1 - YO) 
) 

V(2) = (TIK) - YO) 
Yd41) 7 ((Y2 一 YGO) 间 
》 

FOR 虽 = QTOR2 

FOR PP = oOTO2 
NIKE) = WtK) + UIQ) 
F(I + @J + F) 
NEXT P 

NEXT Q. 


XI + 1 


YI + 1 


六 〈S(K) 
(Xe 一 X2) 


六 《SCK) 
(XLt 一 X2) 


六 《SCK) 
(CX2 一 XIE) 


米 《TiK) 
(Y 一 Y2) 


六 〈《T(k) 
(CY1 一 Y2) 


求 《了 T() 
(Y2 一 Yi) 


玉 YI(P) 来 


1114 FOR I = 0 TO 上 L 

1116 FRINT "ft"sS(TI)3 "3T(I)37) 
="3 FN PN(I) )， 

ilt8 NEXT II 

1120 RETURN 


) 例题 
GD 已 知 函 数 如 下 表 所 示 : 


0.78756 


0.43674 0.61193 


30 0.43973 0.62003 0.80437 


50 0.44455 0.63364 0.83431 


70 0,.44904 0.64707 0.86653 


求 当 X，y 了 分 别 为 (40，30)，(20，30)，(60，40) 时 的 


函数 值 f(x，y)。 
色 ) 主 程序 


号 DATA 4， 瑟 世 

10 DATA 10， 3050，70， 25。 5， 45 

1S5 DATA 9.43674:0.611935D。.78756， 
0.439730.62003D.80437，0.44 
455， .63364，0.834S1 

20 DATA GO.44904:.0.64707，0D- 昌 6653 

25 DATA 40:，20，6D: 0 SO 4 

soO GOSUB 1000 


3S END 
曲 二 元 三 点 插值 子 程序 ( AP-28 ) 
志 计算 结果 
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_URUN 
f (4030)=.534 ff(20v30)= 526 
ff (6D 40) 74 
4.1.8 曲线 拟 合 
用 正 交 多 项 式 拟 合 曲线 
) 目的 
对 于 等 距 结 点 xi(i=0，1，…，n 上 的 函数 值 (ii= 
0，1，…， nm) 用 正 交 多 项 式 以 一 定 的 精度 拟 合 。 
) 数学 方法 
已 知 等 距 结 点 (ii=0，1T，… an) 上 的 函数 值 为 
yi=0，1，…， an)，xo= \t， 结 点 间距 是 HH。 可 以 用 
如 下 多 项 式 拟 合 函 数 y : 
y=bo(S+b(x)+ 
二 bz(S) 二 … 十 bnm(s) 
在 本 节 子 程序 中 ， 我 们 最 多 只 用 三 次 多 项 式 拟 合 实验 数 
据 ， 即 令 : 
yY=bo 和 (s+bg(s)+bz 和 (x+ bs 妇 (x 
构成 一 个 正 交 多 项 式 ， 


oo(t)=1 
ai(b= 下 (一 
2 
二 人 过 汪 1( bb) 
系数 _ 
诛 三 之 由 (DY _ B 
3 9i 


(i=0，1，2，3) 


其 中 Si=》 水 
Mi= biBi 


VS= Mi 
N 

YS= 和 TY 
误 益 也 是 : 
D=|YS- MS | 
统计 量 广 是 ; 

性 0 
-1 


第 一 自由 度 是 1 ， 第 二 自由 度 是 N 一 4 

若 广 >>『o.o 则 该 项 系数 显著 。 

最 后 通过 变换 可 以 得 到 函数 表达 式 是 ， 

yY= 三 Ao+ AI\+ As 十 AAA\3 

) 子 程序 使 用 说 明 

人 中 简单 变量 

N 一 一 给 定 的 结 点 的 个 数 ; 

xX1 一 x 序 列 第 一 个 数值 ; 

所 一 序列 的 间距 。 

地 数组 

Y(CN) 一 -序列 的 各 个 观测 数据 ， 

F (3)- 对 多 项 式 中 四 个 系数 分 别 得 出 的 统计 量 。 
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人 数据 排列 顺序 
N,XL1，H，Y(CN)。 

也 计算 结果 

打印 输出 拟 合 的 三 次 多 项 式 中 检验 四 个 系数 显著 性 的 统 
计量 FE0，F1，F2，F3 ( 著 误 差 <10 -10 则 不 打印 这 几 个 统 
计量 )， 最 后 打印 出 多 项 表达 式 。 

- 加 在 主 程序 的 数据 语句 中 , 按 数据 排列 顺序 给 出 具体 数 
. 据 后 ， 由 GOSUB1000 转 本 节 子 程序 。 


(4) 子 程序 
tDOC REM CUR.ANA。(AP 一 29) 
1O02 DEF FNPIY) = INT (人 Y 水 10 


OO + 055) 7/ 100 
1004 READ N, xlt,H 
tooe DIM YIN),A(SN) ,S(S) 
tboe DIM B(S) ,SA(S),M(Z) FS) 
tootO FOR I = 1 TON 
1012 READ YI) 
4oi4 NEXT II 
10146 FOR J = 1 
tooli 旨 AIJ) = 1 
1020 A(1 3) = 了 
1D22， NEXT 了 
1024 FOR I = 
1o026 FOR J= 1 TON 
1028 A(TI,J) = AI - 1.J) 站 Al JI) 
-~ (TIT-1l) ~-~2 和 ytNkrN- 人 (I 
-1 ”2 和 AI- 2J) / (4 
米 (4 玉 (IT 1) ”~ 人 一 1))》 
1030 NEXT 
1D32 NEXT I 
1034 FOR 1 
14103646 FOR J 
1038 S(I) = 


= DTOS 
= 1 TON 
St(I) + A(I,J) 冰 AT， 


1040 B(I) 一 BII) + (IJ) 冰 YIJ) 
t642 NEXT 


354 


1 口 4 人 4 
1O46 
t+1C48 
16SO 
1O5S2 
10S4 
1C5S5O6 
1058 
1 
1062 
1 64 


1 
1OO86 
41C7t 
7 了 2 
荆 人 7Z 太 


1D7O 
1 7 台 


1 已 昌 心 
1 才 生 全 


荆 避 台 全 


1O8e6 


1 OBS 
工 避 马 怠 


让 全 写 全 


芋 怠 多 嫩 


BA(I)》 = B(I) 7/ SCI) 
MI(I)》 = BA(I) 来 B(I) 
MS = MS + MI) 
NEXT 工 
FOR I = 1 7T9 AN 
YS=YS+YII) 姜 YII) 
NEXT 工 
D= ASBS (人 (YS - MS) 
IF,D< liOE ~ 10 THEN 1072 


FOR I = 0 TO 3 

FtIT) = M(I) kk (N -~- 4) / D 
PRINT "FI FN FFCIT)) 
NEXT II 

PRINT - 


人 1 = BALL) 一 RARAC2)》 站 《N + 革 ) 
二 了 BA) 丈 (人 ( 虽 。 折 六 及 水 及 + 工 。 
号 米 + tti) 


生 二 玉 有 2》 一 BAICS)》 炒 东 (N + 
1) / 2 
也 一 玉 合 ( 汪 ) 
AD = BAO) -EAIT)》 冰 (NT+ T) 
玉 避 。 写 十 下 有 (2)》 CN 二 来 
Nd+2)7ACG -EAICS) 下 《人 NT+  ) 
冰 NT+ 2 来 ( 人 NT+ ) 来 站 .5 
C=l 一 xi /H 
BD PRO + 和 Nt C+ 2 东 对 六 
[CC 
日 1 = 《AI 十 尿 有 全 来世 + 六 末 
和 3 和 C) 7/ 
于 2 二 
HH》 * 
了 本 SA CH 于 HH 由 


PRINT "Y="3 FN P(BO) + FN 
己 (RB1)，) 水 X 二 《0 

PRINT  FN FSB) 于 X“2+( FFN 
下 《有 R) 让 素 X 玉 " 

RETURN 
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(5 ) 例题 

全 设 N=7，xo=1，H=1 
xl 2345 6 7 
y: 4 2 1 2 3 6 10 

求 函 数 y 的 表达 式 。 

@) 主 程序 

10 ”DATA 7,1,1 


20 DATA 4,2，1 2 SS，6y1o 
30 60SUB 1000 


40 END 

侠 曲线 拟 合子 程序 (AP- 29) 
转 计算 结果 

DRUN 

FO=1t411。 人 全 上 上 一 552。 日 
F2= 了 7S 找 了 三 局 


Y=7。T4+ (一 了 。7 白 ) 来 X 十 (和 ) 炒 X 人 ~ 全 十 【各 》 求 尺 玉 开 


第 一 自由 度 是 1 ， 第 二 自由 度 是 3 ， 查 了 上 表 , 上 .ol(C1， 
3)=34， 即 F0, Fl1 及 F2 都 大 于 Fool 故 可 用 二 次 正 交 多 项 
式 拟 合 函数 yz7.14 一 3.76x+ 0.60x2 。 

4.1.9 过 程 分 析 
周期 分 析 

(1) 目的 

对 一 个 时 间 序 列 ， 提 取 其 主要 周期 。 

(2 ) 数学 方法 

用 三 角 函 数 法 提取 周期 。 设 有 一 个 时 间 序 列 x(t): xi， 
X?，..。，， Xn 


可 以 用 三 角 函 数 族 提取 周期 ; 
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k 
_X(Ct) .三 a0 十 》 ， (aicos 


t 
27zt | 
工 j 


j= 1 


bisin2z 】 


革 ， 
其 中 ao，ai，bi 为 待定 系数 ， 工 ;为 周期 的 波长 。j 为 波 
j=1，2,3，…,k 


也 卫 也 也 
革 ;为 遍 ER 
i 为 周期 ， 二 ij 1， 2， 3 9 k 
k=TINT (na7/2) 
ES 
间 Ti = 0 


ai= 二 二 人 jj 


bi= 元 习 Xi sin | 2 j 


振幅 A ?= a? 十 b? 有 
对 这 些 周 期 可 用 F isher 判 据 来 判断 ; 


1 
Se 
S ”为 时 间 序 列 x(t) 的 方差， 


也 


9 5 (xi 一 X)2= 
i= 上 
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1 - 媚 1 有 
五 区 x 拓 大 《 二 XiD2 


计算 统计 量 7ij= S P/S 2 ， 并 将 7i 按 大 小 顺序 排列 ， 按 
设计 提取 10 个 主 波 ， 顺 次 计算 概率 Pij，F isher 分 布 概率 公式 
为 ; 


Pi (7-y7D= 并 (Di 
i= 1] 
Ci RN 一 Ci+1)Yi] ki 
其 中 r=INT ((1 -YiD)XYi) 
若 Pi <0.05， 则 主要 周期 存在 ，P i0.05 时 主要 周期 
不 存在 。 

(3 )` 子 程序 使 用 说 明 
@ 简单 变量 
N 一 一 序列 数据 的 个 数 。 
@@ 数组 
X (CN ) 一 一 序列 的 各 个 观测 数据 ; 
Al(K),BICK) 周期 函数 中 的 待定 系数 ; 
AJCK) 振幅 ; 
WN(K ) 一 一 波 数 ; 
Y (KK ) 一 一 统计 量 ， 
R(10) 一 一 计算 YCK ) 时 用 到 的 参数 ， 
P 1(10) 一 一 概率 值 
他 数据 排列 顺序 

N ，XCN) 
@@ 计算 结果 
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打印 输出 ， 

A 0 一 一 周期 函数 的 系数 ; 

P 一 一 各 主要 周期 的 概率 值 ; 

WAVE NUM. 一 一 各 主要 周期 的 波 数 ; 

P ERIOD 一 一 各 主要 周期 波长 ; 

A，B 一 一 各 主要 周期 函数 的 系数 。 

G) 在 主 程序 中 按 数 据 排列 顺序 给 出 数据 后 , 由 GOS - 
UB1000 转 本 节 子 程序 。 


《4) 子 程序 
1000 REM FER.ANA.。(AF-3O) 
1002 DEF FNPIY) = INT (Y # 190 


oOD + DSS) /1000 
1604 READ N 
1ooo DIM XIN) 
1ocB FOR II= 1 TON 
1 READ XI) 
1ol2 NEXT II 
1014 拓 = INT (CN 7/ 2) 
10l16 DIM Al(K) BRB1TK) ASJIOK)WNICKE) 


1018 DIM Y(K) ,RCIO)，PF1(1O) 

1o20 FOR I = 1 TON 

1022 S1 = S1 + X(I) 

1024 S2 = S2 + X(I) ”人 

1026 NEXT II 

1028 6@ = Si 7/ N 

1030 SS = (S2 ~- SI1 27N IN 

1032 FOR 可 = 1 TOK 

10354 FOR I = 1 TON 

1036 Al1(I) = Ai(JI) + X(T) # COS 
(2 着 314159 # (IT 1) # 7 
N) 

1C038 Bli(I) = Bl(J) + X(I) # SIN 
(2 共 14159 (IT 一 1) 基 可 7 
N) 

1040 NEXT 了 


让 寺 
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TI042 
1944 
1024w 


1D48 
1050 
1 SS2 
1054 
上 0 与 各 
1O5S8 


1 
1 
t1OG4 
10900 
10O06B 
107o 
1072 
1074 
1070 
1078 
1080 
工 全 日 忆 
10SB4 
1 口 旨 各 
1088 
1090 
1092 
1 局 呆 4 
1O26 
1C938 


11oo0 
1 之 


1104 


和 


At(J) 三 了 荆 x< ti 7 N 
Bl(J) = 人 < BEBLCI) 7 N 
AJ(JI) = At(J) ”~ 人 + Bl(I) 
2 过 


NN(J) = 
Y(J) = AJII) / (2 # SS) 


1 
已 


FOR I = 1 TO 其 
FOR J= ITOK ， 
IF Y(I) > = YI) THEN 1090 
Tt = YI) 
Y(CI)》 = YI(U) 
YtJ) = Ti 
T1 = AJ(I) 
AJ(I) = AJ(J) 
AJJ) = Ti 
Ti = WNNCI) 
WN(I) = WN(J) 
WN(J) = Ti 
Ttl = Al(I) 
Al(I) = 人 IJ) 
AL = 一 Ti 
Tt = Bl(CI) 
Bl(I) = Bli(uU) 
Bi) = 三 Tl 
NEXT JJ 
NEXT II 


FRINT "ANO= "3 FN PICAD) 

FOR II = 1 TO 10 

CC= (长 一 I++ 1) 关 (人 八 一 II) 7/ 
忆 

RII) = INT ((1 -YII)) 7 YI 
I) ) 

FOR J=1 TO RII) 

Pl(I) = Fl(I) + (一 1) ” (JJ + 
1)》 共 (全 (+ti)X<YI)) ~ 
(K 一 I) s CC 

CC=CCXx 人 (人 人 必 一 工 一 JUJ) /7 (+ 


1108 NEXT 了 J 

iltloOo IF Pil(I) > = 0.05 THEN PRINT 
"FTI3 = FN PRIP1I(I))3 SPFC 
159)35"NO PERIOD": GOTOQ 1122 

1112 PRINT "PT = FN POPl( 
II) ) 

1114 PRINT "NAVE NUM.=" HKN PCONN 
《IT))3 SFCI io)3"FERIOD='" FN 
PIN / WNN(I)》 


11416 FRINT "A(25TS2) = FN FA 
TI) )S1 兴 CDSIC SFN PS6O X NNIOI 
) 7 N)37"X#t)15 SFCCO 1D) 

il 号 FRINT "ERIC"3TY = FN PROIB1 
TI))872XSINIC FN PSOD xx WNCI 
) 7 N)8 7 其 七 ?2 

tlzo NEXT 工 

1122 RETURN 


(5 ) 例题 

@ 设 有 一 个 时 间 序 列 :126, 89, 115,79，131，89, 98， 
75，109, 80,，99，99，62, 86，97,，109, 123,122,128,101， 
求 周 期 。 

@ 主 程序 


10 DATA 20 

20 DATA 126,89,115,79,131, 982,98， 
75,109 ,80 

30 DATA 959,99,62,86,97:109，123，1 
221289,101 ， 

40 ”60SUB 1000 

so “END 


@@ 周期 分 析 子 程序 (AP-30) 
@ 计算 结 
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AO=100.。85 
P(t)=1E- 忆 SS 


WAYE NUM.=1i0 PERIOD=2 

At1)=15.9yCOS (1980 汪 革 ) B(1)=OxSIN(1BOt) 

忆 (2)=.Q3SS 

NAVE NUM.=1 PERIOD=20 

有 (2)=1S-.745COS (18 冰 +t) B{(2)=-4.472kSINC1Byt) 
P 忆 (本 )=。54S NO PERIOD 


由 于 P (1) <0.05， 故 存在 第 一 主要 周期 ， 波 数 为 10， 
波长 为 2 

由 于 P (2) <0.05， 故 存在 第 二 主要 周期 ， 波 数 为 1, 波 
长 为 20; 

由 于 P (3) >0.05， 故 不 存在 第 三 周期 。 

观测 数据 可 由 主要 周期 的 至 加 得 到 ， 即 : 

xCt)=A+A(C)+B(GD)+A(GC)+B(2) 

=100.85 二 15.9cos (180t) 十 13.745cos (18t) 

一 4.472sin (18t ) 

式 中 三 角 函 数 中 的 角度 以 度 为 单位 ，t 代 表 序 列 编号 
(t=1),2，…)。 


$ 4.2 人 事 管 理 程序 


4.2.1 程序 设计 思路 

某 些 单位 的 人 事 部 门 想 要 记录 所 有 职工 的 情况 ， 并 希望 
能 够 随时 更 新 这 些 记 录 。 比 方 说 ， 增 加 新 职工 情况 、 删 除 调 
走 的 人 员 情 况 、 更 改 职 工 有 关 项 目 ， 还 希望 很 方便 的 针对 某 
些 项 目 对 人 员 情 况 进行 调查 、 选 择 、 归 类 。 最 后 ， 还 希望 能 
够 随时 把 这 些 记录 存在 磁盘 上 或 从 磁盘 上 取出 。 针 对 上 述 这 
些 要 求 ， 我 们 编制 了 人 事 管 理 软件 。 

4.2.2 建立 汉字 资料 库 
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在 APPELEEI 微 型 计算 机 上 配 汉 字 揪 件 以 及 相应 的 打 
印 机 ， 即 可 进行 一 般 性 的 中 文 信息 处 理 。 为 了 使 用 方便 和 易 
于 推广 ， 本 程序 是 在 汉字 插件 的 基础 上 编制 而 成 的 。 为 使 计 
算 机 能 够 处 理 中 文 信息 ， 首 先 要 解决 汉字 进入 计算 机 即 转换 . 
成 机 器 代码 问题 .汉字 随 着 历史 发 展 不 断 演 变 ， 且 古今 繁 简 ， 
正 异 各 体 并 存 ， 大 约 有 六 万 多 个 汉字 ， 而 我 们 常用 的 汉字 只 
是 汉字 集合 中 的 一 个 子 集 。APPELEI 微 型 机 上 应 用 的 汉 
字 揪 件 大 致 可 产生 24000 左 右 个 组 合 汉 字 。 据 说 是 依 《 康 黑 字 
典 》 而 汇 成 ， 故 其 汉字 为 繁体 。 最 近 ， 市 场 上 也 已 推出 简体 
汉字 择 件 。 

中 文 输入 是 利用 键盘 上 英文 字母 键 A 一 Y 代表 中 文字 母 
来 组 成 汉字 ， 由 CTRL-L 键 来 决定 输入 英文 字母 还 是 中 文 
字母 。 按 下 CTRL-D 键 ， 再 按 CTREL-L 时 ， 屏 幕 左下 角 
会 显现 出 中文 ?两 个 小 字 ， 此 时 A 一 了 键 代表 中 文字 母 日 一 
卜 ， 在 每 输入 一 中 文字 母 时 ， 均 会 在 (中 文 ? 的 右边 依次 显示 
出 ， 每 个 中 文字 最 多 由 五 个 中 文字 母 组 成 。 和 输入 完 字 母 ， 
按 空格 键 ， 该 字 即 显现 出 。 中 文 输入 完毕 时 ， 再 按 一 人 
CTRL- 世 键 恢 复 英 文 输 入 方式 。 

汉字 的 编码 组 成 规律 以 及 详细 情况 ， 请 参考 《 佳 佳 汉 卡 
中 文 说 明 》、《 汉 字库 使 用 手册 》。 本 软件 建立 汉字 资料 库 采 用 
专门 程序 〈 在 盘 上 提供 ) 进行 ， 在 后 面 详 述 。- 

4.2.3 程序 结 松 

程序 结构 有 四 个 主要 方块 ， 如 下 图 所 示 ; 


方块 1 


初始 化 
上 标题 


363 - 


方块 2 过 方块 3 

“菜单 ” 组 织 子 程序 
T 
方块 4 
子 程序 


我 们 先 简单 的 介绍 每 一 个 方块 ， 然 后 再 详细 说 明 每 一 个 
子 程序 。 

方块 1 是 程序 的 初始 部 分 ， 本 程序 采用 自动 启动 输入 方 
式 。 另 外 ， 在 这 部 分 向 使 用 者 介绍 了 该 程序 的 标题 及 其 有 关 
情况 。 在 编制 程序 时 ， 这 部 分 往往 容易 被 忽略 掉 ， 这 是 不 应 
该 的 ， 因 为 虽然 没有 它 并 不 会 影响 到 程序 的 逻辑 运行 ， 但 是 
却 会 使 程序 更 难 使 用 、 追 踪 和 了 解 。 况 且 应 用 汉字 插件 编制 
程序 时 ， 某 些 初始 化 工作 更 是 必 不 可 少 的 。 当 然 ， 结 合 所 纺 
程序 的 不 同 ， 这 部 分 具备 的 要 素 也 会 有 所 不 同 。 

方块 2 是 一 个 包含 程序 所 有 功能 的 表 ， 常 常 被 称 为 “ 菜 
单 %menu)。 使 用 者 可 利用 这 个 表 来 选择 所 希望 具有 的 功能 。 
它 是 程序 的 中 心 部 分 ， 所 有 的 路 径 都 从 它 开 始 ， 而 且 它们 最 
后 还 回 到 这 里 。 因 此 ， 如 果 使 用 者 从 这 个 “菜单 ”选择 了 某 
一 项 功能 ， 程 序 会 去 做 这 项 工作 ， 当 这 项 工作 完成 之 后 ， 它 
又 回 到 这 “菜单 ”上 来 。 

方块 3 是 为 完成 某 项 具体 工作 而 组 织 子 程序 。 当 使 用 者 
从 “菜单 ” 中 选择 了 一 项 功能 后 ， 为 成 功 的 完成 该 项 工作 ， 
程序 常常 必须 调用 一 些 子 程序 。 方 块 3 正 是 为 了 “菜单 ” 中 
的 每 一 道 “ 菜 ”分 别 组 织 这 个 过 程 。 当 然 ， 在 任何 这 种 组 织 
里 ， 最 后 一 条 指令 都 是 把 程序 交 回 给 “菜单 ”。 

方块 4 包括 一 些 子 程序 。 每 一 个 子 程序 都 是 自 成 一 个 音 
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元 而 且 可 以 单独 执行 一 件 工作 ， 而 且 每 一 个 子 程序 执行 完毕 
后 都 把 程序 交 给 方块 3 。 

4.2.4 程序 介绍 

在 本 程序 中 ， 方 块 1 的 程序 从 行 号 3 到 行 号 140。 这 部 分 
列 在 下 面 。 行 号 5 这 行 提供 自动 进入 功能 ， 其 任务 是 在 内 存 
中 写 入 一 段 机 器 指令 ， 然 后 转 入 自动 启 始 单元 运行 。 行 号 10 
到 行 号 50 做 初始 化 工作 ; 行 号 60 到 80 为 标题 部 分 ， 行 号 100 定 
义 了 每 个 记录 的 24 个 位 置 。 


3 CN = 5 、 
SHINMEM:，368564: POKE 37984, 日 ，PR4 CNH:， PRINT 
” PFOKE 43683,3，POKE 43684,192 + CN，PDKE 43665 ,48: 
PDOKE qd3686.198 + CNH，POKE S5dq,189，POKE 55,158: P 
OKE 56,189:，POKE 57,158: FOR I = 1 TO 15:， GET 冲 ， 
、 MEFT 
19 ER = 日 ，POKE 1913,1665，DNERR GOTO 1158 
qd86 [ 辆 = PHRS rdqd2:08 =“DOPEN :C$ = “CLOSE :R = 
REPRD :0 各 = “WRITE :DR = “DATR” 
SSg BS = d9152 + BESE 半 CNH:HM = BS + Bl1:FCC = 
q:CE = ES + 36:CL = BGS + 39:CF = BS + de:H 
Y = Bl15 
BCALL HM: POKE ,3:， POKE H, 日 :PRIINT “ 冰 炒 水 水 吉本 本 
省 刹 象 局 *#k” :， CALL CC “ 
PPOKE H,12，PRINT “人 人事 管理 程序 " :CALL CC 
8 POKE H,13:， PRINT “1984.1.26 : CALL CC 
199 FOR TI.= 1 TO Seg:I.= I + 1: NEXT 
BDIM 月 $EBd> 
1BS  POKE ,了 ，POKE H,12: PRINT “更 有 记 和 条: ”，CALL 
CC 
: 寺 1 昌 PRINT D 囊 :0D$: CR 下; ,LESG 


BS + 纪 
= DC14， 


1EB PRINT D 电 ;:R;DP 中 ,RD” 


3 POKE Y,7: POKE HEl: INPUT [种 :HH = YARL (CN 和 72: 
PRIIMT MCALL CRF 、 
133 PRINT D 趾 


lde@ FOR IT = 1 TO 1688:I = I+ 1:，NEXT 
他 


行 号 105 到 135 程 序 给 出 现 有 资料 库 中 记录 数 。 
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下 面 所 示 程 序 是 方块 2 的 “菜单 2。 行 号 由 150 到 240， 根 
据 使 用 者 的 需求 ， 程 序 分 别 进入 读 、 加 、 改 、 选 择 打印 各 项 


程序 段 。 行 号 230 要 求 使 用 者 键入 所 欲 执行 的 项 数 ， 行 号 24 
进行 判断 分 支 工作 。 
15 日 CALL HM 
_ 169 PORKE H.E，PRINHT “+ 和 上 事 商 村 管理 和 CR 
LL_CC 
17B FOKE w,3， PORKE H,I8，PFRINT “日 :| 亭 止 " ，CRLL EC 
19B8 PORKE H,1D，PFINHT “1: 库 1 因 i 床 " ，PCPLL CC 
198  POKE H, 169，PRINT “8:HoMf{ 因 记 条 ” ，CALL CC 
BeB  POKE H,19:， PRIMNT “3:PXR1{ 国 i 孙 “， ELL_ CC 
Bl16  POKE H,16，PRINHT “4: 栅 挥 打 EP 记 了 隶 " ，CALL CC 
226，FOKE V,B: CALL CL:，FOKE H, 1B，PRINT “ 午 行 项 
236 INFUT B: IF B = 日 THEN GDOTO 959 
Ba35 IF B .: 5 THEMH de 
Ba38 PRINT CHRS 73:， GOTQ 158 
ad6 ON B 6G0T9 ss58,368,469,56B 


下 面 分 别 对 “菜单 ?中 每 一 道 “ 荣 ? 进行 盖 述 。 
读 工 个 记录 ， 避让 交 汪 270 行 要 求 键 入 所 读 记 录 
号 ， 而 后 调 入 子 程序 1050 读 入 记录 。 


B56 
Ba6B 
-B7B 
272 
27d4 
275 
、B8B 
了 一 


CALL HM，POKE w,B 
PFOKE H,1B，PRINT “ 识 1 个 记 和 条“，PALL CC 

POKE H, 了 ，INPUT “ 纶 出 记 杂 号 ca 退出“ 

IF TI = g@ THEN 159 

IF TI > 1M THEN 60OSUB 16989，GOTO B58 

CAPLL HM，PDKE ,2 

GDSUB 1858:， FOR IT = 1 TO 18p8:I = TI + 1，MEY 
GOTQ 3259 


加 M 个 记录 ， 程 序 如 下 ， 自 行 号 300 到 390。 采 用 屏幕 提 
示 输 入 资料 数 ， 把 欲 加 的 记录 以 RATA 语句 的 形式 自 程序 


末 给 出 ， 


然后 运行 该 程序 ， 即 可 将 一 批 记录 加 入 到 磁盘 的 资 


料 库 中 去 。 
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、 398 EARLL HM 
319 ”FOKE H,12: PRINT “oMf 因 纪 条 ”CALL EC 
328 “POKE H, 18: PRINT “ 求 来 炒 来 琳 束 玉 素 林 于 本 下 末 ”= CILL CC 
338 “PFOKE H, 19，PRINT ”六 施 记 条 号 = NM + 1，CALL 已 


氏 
348 ”PPDKE H,19，INFUT “二 工商 料 数 "6: 退 出 ， :M，， CR 
LL CC 


3d5 IF M = 日 THEH 159 

358 PPOKE H,12，PRINHT “更 芷 二 小 访 衬 ， CRPLL_ CC 
368 FOR TI =NH+1TON+HMH: FOR JJ=1TO 3q:，REN 
D PSCJ2:， NEXT : GOSUB 119B:H = + 1 

38G PRINT DSS CR 各 ”,F" 

398 PRINT NH: PRINHT 0$:， NET : GOTO 15n 


改写 1 个 记录 ， 程 序 如 下 自行 号 400 到 490 。 语 名 430 要 求 
给 出 修改 的 记录 号 ， 调 用 子 程 序 1050 将 欲 修改 的 记录 调 至 
屏幕 显示 出 来 ,你 是 否 下 决心 改写 此 记录 呢 ? 语句 450 给 你 改 
变 主意 的 机 会 。 当 改写 完毕 ， 调用 子 程序 1100 行 修改 磁盘 资 
料 库 。 


d6B CALL HH 
*qlB POKE H,1: PRINT “5 条 1 国 记 条  ，CALL CC 
da8 “PORKE H, 1 日 : PRIIT “于 玉米 炒 来 来 来 来 炒 来 来 玫 来 来 炒 “CALL CC 
436 _POKE H,19:， INPUT “给 出 记 条 号 ce-= 停 止 ) ”Ts,IT = 
VPL CTI$27:， IF I = D THEN 156 
4d35 IF TI>NTHEN GOSUB 1998，G0T0 489 
dd4B6 ”GDSUB 1D59 
45B CALL CE，POKE H.1B:，INPUT “BE 全 ?2CYAN>》 08， C 
PRLL CC，IF 时 =“M”THEN 499 
qd58 IF 0$ = “YY ”THEN 455 
d453 PRINT “CHR$ 77，60T0 458 
455 FOR J = 1.TO 84:， POKE V, 了 : POKE H,6，CALL CL 
PRINT 多 CJ7，CRARLL CF 
456 “ PDKE V, 了 7: POKE H,5: INPUT B$，IF LEN (6$S27 “< 
> B THEN RSCJ) = 8BS$ 
q457 “NEXT 
qd686 “60SUB 1188，GDTO 466 
-488 FOKE 昌 ,1B，PRINT“ 记 录 " ,IT， 汉 Py 酌 :， CALL CC 
: FOR TI = B TO 868，NEXxT I: GO0TO 488 
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选择 打印 记录 ， 为 了 选择 打印 各 个 项 目 方便 起 见 ， 我 们 ; 
又 准备 了 一 个 小 “菜单 ” 供 使 用 者 选择 ， 程 序列 在 下 面 ， 有 
八 种 〈0 一 7 ) 情况 可 选 。 根 据 使 用 者 的 要 求 可 分 别 进行 ， 
退出 现 工作 状态 、 顺 序列 表 、 条 件 列表 和 数据 比较 工作 。 另 
外 还 可 开打 印 机 打印 输出 。 

SCgB JI = 日 


s65 “CALL HM 
51B “POKE H,6:，PRINT“ 打 ER 工作 方式 导 抒 ce: 退出 ) ” 


:CALL CC 

S8B POKE V,3，PFOKE H,1B: PRINT “1: 列 头 "PPLL CC 
536  POKE H,12，PRINT “2 :1 人 条 件 列 于 "CALL CC 

sq4B 。POKE H,13:， PRINT “3 : 己 傈 件 列 表 ”CALL CC 

s58 _PUKE H, 12:，PFRINT “4 :3 人 和 修 伸 列表” ，cCaLL CC 

s68  FDKE H,12，PRINT “5 :单项 3 休 件 别 开 " ，cALL PFC 
S68 ，POKE H,B，PRINT “6: 娄 据 FL 培 "CALL CC 


SE3 IF T1 = 1 THEN POKE H,15: PRINT “水 玉江 ETP+ 几 

已 打开 #*k”，CALL CE， GOTO s65 

56dq4 PORKE H,18:， PRINT “7:， 于 打 EP 几 ” ，CALL EC 

PFOKE w,B: CRLL CL:，PFOKE H,1B8，PRINT “ 吝 行 JI 
号 和 得 

SFG INPUT KE， CPLL PE:K = WPRL KK IF KR = 日 TH 

EN 15 昌 

SP?5 IF K -日 THEN 599 

S88 PRINT “CHR$ “72: GOTO 5B9 

S96 ON 久 GOTO BBB.68B, FED,7EB,B1,BSG ,13BH 


1 


人 | 


f 


顺序 列表 ， 要 求 可 以 把 现 有 记录 中 的 任意 记录 做 为 起 始 
记录 ， 且 可 以 随意 打印 任意 个 记录 〈 不 超出 资料 库 的 容量 ) 
这 就 要 求 使 用 者 键入 开始 打印 记录 号 以 及 打印 记录 数 ， 然 后 
调用 子 程 序 1125 及 子 程序 1000 进 行 输出 。 


8B88 ”CALL HM: POKE H,12:，PRINT “ 打 EPiD 了 条 " :， CALL [CC 
C 

618 。PQKE H, 1 加 : PRINT 。“ 炒 夺 求 来 于 来 来 玫 末 来 来 玉 来 本末 ”= CALL CC 
629 ”PDOKE H,8:， INPUT ”并 妊 打 EPi 条 号 > 日 “:PS， 
LL CC:P = _ VPRL 5P$>7:， IF P -。 1 OR P >NTHEN PRIH 
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T CHR$ (72:， GOTO 8689 

639 “PFOKE H,12，INPUT “ 打 ET 记 条 数 " :KS:，CRLL CC:K 
= YAL (KKS): IF K = 日 THEN PRINT CHR$S “72: GOTO 

5B9 

64d@ IFK>N-P+1iTHEN PRINT CHRS (572: CRALL 
cC，50TO 638 

659 GDSUB 1185 

67B FORT =1TOK:I=-T+P- 1， 60SUB 18899:， NE 
xT_ T， GDTO 568 


1 条 件 列表 ， 程 序 如 下 :680 语 句 让 使 用 者 键入 比较 项 和 
所 比较 的 内 容 ， 并 给 出 比较 记录 的 范围 ， 随 后 调用 子 程序 
1125， 子 程序 1260 将 记录 自 磁 盘 中 调 出 ， 当 比较 符合 后 ， 调 
用 子 程序 1000 打 印 出 结果 。 


BEBB PORKE S5， CRLL CF: FOKE H,8，INPUT “请 二 必 
TI 页, 二 有 明子 >” ;B.F 和 :PRALL CC 

ESB1 FORKE H.S:， INPUT ” 盘 性 b 较 记 订 号 > 日 “:P 和 :CR 
LL_ CC:P = wAL rcFS$3: IF P< 1 DR P>HMTHEN PRIN 
T CHRS 572，6OTO BBL1 

6SE 。 POKE H,1B:， INPUT “bb 壤 记 率 双 ” KK， CALL CDP:K 
= VPRL rkg2: IF K = 日 THEN PRINT CHR$ 572: GO0TO 


B83 IFK>N=-PR+1l THEN PRIT CHRS “72 CALL 
CC: DOTB 68B2 

695 6OSUHB 11PS 

6SB FORT=1TOKI=T+P-1: Go3SUE 1269 
695 PRINT hhSCB2: CRALL CD 

re IF PS B2 = F 和 $ THEN GDSUB 19G66 

PDB EST T: PRINT D 和 和，DPOTO SGB 


2 条 件 列表 、3 条 件 列表 、 单 项 3 条 件 列表 和 数据 比较 
等 项 选择 大 致 与 1 条 件 列表 相仿 ， 以 下 列 出 程序 。 


Pap POPFE w, 6 CALL CF :INFLT “请 辆 ] “7I 下 . 厅 有 中字 ， 
IJ 页 , 看 全 池 ，:P.F$,B.T 员 :CALL _CF 

Fel，PFOKE H,.S:， INPUT ”有 壮 bb 过 记 什 总 日“ :P 和 :CH 
LL_ EC:P = wwBEL CFS5: IFP -1 OOR PR > MTHEN PRIN 


369 


EHR$ “Fo GOTO P 
2B PDFKE H,1ES: Ni “转让 条 是 ”:K 和 :ERLL CC:K 

upL FE 中: IF F = 日 THEN PRINT RCHRS cz72: .GOTO 
SB 


IF 攻 >H=-RPR+lTHEH PRINT PHR 和 CRP2s CRLL 


多 1 : GDTB F 人 

PS GOSUB 11E8 

7r36 FOR T = 1 TDksT -=T+P-、1 60sue iagB 

7r35 PRINT PSBcC2 PSCB2， CALL PC 

Frdge YYTF 种 cC) = F 和 AND PCB5 = T$ THENH GOSUB 166 
电 

SB NExT T:， PRINT 0: GO0TO 569 

768 PPOKE v,7: CALL CF，INHPUT “请 输 咎 <I 项 ,本国 胃 子 


项 , 订 晶 国字, 项 ,日 关 字 >》 ”;E,F$,B,T$,C,HS，CALL FC 

761 POKE H,.8:， INPUT ”并 tbb 较 记 条 号 > 日 “;F$:， CR 
LL_ PFC:PF = _wRL 5F$2: IF P < 1 GOR P >4 THEN PRIN 
T CHRS (723:，GOTH 7BE1 

?76B  POKE H, 12:，INFUT “此 较 记 条 娄 " ,K$，CALL CC:K 

= VPRL KK 和 ): IF K = 日 THEN PRINT CHR$ 572: GOTO 


SB . 
PEBa IFK>N-PR+1lT THEN PRINT CHRS 《72: CALL 
LEC: DOQTO 7 了 BE 


77B HGQ0SdB 11E5 

Be FORT =1TOK:I=T+P-1， GosuBb 1B69 

785 “PRINT RS5E3 .ASCB2 ,PCC7， CRLL CC 

7S@ IF p$CE>》 = F 和 RD PSCB> = T8 AND fp 匈 KC》 = Hg 
THEN _G9SUB 16B9 

868 NExT T: PRINT 0$:，GOTO SB 

BiQ@  POKE ,6:， CALL CF:，INPUT “请 办 < 项 ,+ 照 四 字 ， 
村 晶 国字 ,上 生 遇 二” :日 ,F 和 ,TS$, HS，CALL CC 

al11 FOKE H,B: INPUT ” 拼 风 bt 较 记 订 号 >@“;P$: .CR 
LL CPP = VPRL 5cP$2:， IF P < 1 oORP>NTHEN PRIN 
T CHRS 《72: GOTO 8141 “ 
BIT。 POKE H,128，INPUT “比较 记 条 数 ”:K，CRLL CC:K 
= MARL (K8): IF K = 8 THEN PRINT CHRS 〔73。，G60TG 
589 

Bl13 IFK>MNH-P+1THEN PRINT CHR 7 CRLL 
CC，EG0TO 818 


BIS GOSUB 11E25 
月 FURT=1TOFK:I=T+PR- 1: 603SU8 1269 
ES FRINT RS5B2 ERLL EC 


B36 IF HECB> = F 员 DR RSCB = T 串 DR PCB2 = HE TH 
EM 60s08 1669 

BdqgB NET :PRINT [ 吓 ，GOTO SB 

SBsB PORKE ww,9，FRBLL FF: POKE H.B:，INFUT “请 辆 人 
II 让 ,二 且 呈 二 [2 ,CC.B: CALL_ CC 

csl1 FORKE H,S，INFLT ” 半 央 比较 纪 季 号 :日 “F 下 Ch 
LL_ PE:P = WEL crF$3: IF F “1 ORP>MTHEN PRIN 

CHRF 和 “7 GOTO 851 

BBS PORKE H,1E: INHPLT “上 过 记 条 魏 ” :KRS，CRLL CC:K 
= wwRL ck 和 :IF F = 日 THEN PRINT PHR$ “72，GOTO 
己 电 马 

BE53 IFK NMN-P+1TTHEN PRIHNT CHRS 72 CALL 
CC: BOTO .352 

ass GOSUB 11B5 

BEB FORKF T =1TQKTIT=T+P- 1，G0SuB 1t269 

BES FRINT pcCo: CALL EC 

Br = wVAL rRCP5D5: IF 日 : = 6THEN GOSUB 16B 


与 
SS ME2T T:， PRINT 0$:， GOTO SBB 
Sc 昌 FORKE HE PRINT “CLOSE ;CR 员 


下 面 的 程序 指定 了 输入 资料 的 显示 位 置 以 及 有 关 提 示 信 
程序 行 1100 一 1120 为 写 记 录 子 程序 。 


… 96B8 “CPPLL HM 
989 “POKE Y,4，POKE H,12: PRINT “再 上 内“:， CALL PC 
F 
998 POKE V,9: 上 E 
1868 GOSUHB 1148: GO0SUB 1856 
1638 GD0SUB 1145 
>1846 RETURH 
18598 60SUB 1268 
1865 FOR J=1TO8 
11866 PRINT PS ，PRINT ”NEXT 


1667 IF LENH CAg$c92> = B THENH PRINT ” “GO0T 
1 1BES 评 

166B ”PRINT PSC927;， PRINT 5 

16869 IF LEN “ASC192>》 =. 日 THEN PRINT ” 
| GOTO 1tBF1 


“TB7B PRINT pcC182，，PRINT ”4 
1971 FOR .JJ = 11 TD 15 
1972 PRINT 的 KJ : PRINT ” ”NEXT 
1873 IF LEN KR$rl1677 = 日 THEN PRINT ” “1 
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: DOTO 167S 


167q4 PRINT ASC1625 PRINT ” “3; 
1975 FOR J= 17 TO 19 
1B76E IF LEN (PCJ22 = B THEN PRINT ;1 G 
| QTO 1e78 
1677 PRINT PSCJ25 ，PRINT ; 
1B678 NET 
1679 IF LEN (PC2ag2> = B THEN PRINT ” ”60 
TO 1881 
1988 PRINT PR$C2825: 六 PRINT ” 
1881 IF LEN 5pSC2127 = B THEN PRINT “ ”1 
GOTO 1683 
1682 FRINT PSCBl25 :PRINT ” 4; 
1B83 IF _ LEN Ch$cB227 = 日 THEN PRINT ” 
，GDOTO 1985 
1B84 ”PRINT PSCas2 :， PRINT ”3 
1685 FOR JJ = 83 TO 84，IF LEN CARdCJ)> = B THEN 
PRINT “ “5 GOTO 1887 
1B86 ”PRINT PCJ2:，PRINT ” 
1687 NEXT ， PRINT 
988 RETURN 
ea 吕 
a18S6 CALL HM:，POKE ,3，PDOKE H,12，PRINT“ 担 攻 ， 
:CALL CC 
16895 “POKE H,8B，PRINT “该 记 条 尚未 建 走 ”" :CALL CC， 
DR I = 8 TD 669，NEXT : SETURN 
1189 ”PRINT D$;u$DRSi ,R ;TI 
1185 FOR J= 1 TO 34 
1119 IF _ LEN ChR$cJ22 = 日 THEN PRINT ”“:，60TQ 1 
115 
111B PRINT h$CJ2 
1115 NEXT 
MI12B PRINT DS，REIURN 
rlie5 GOSUB 1148:， IF T1 = THEN 1139 
112E6 FOR I = 1 TO 188:，PRINT “，，NExXT ，CALL C 
C:，PRINT 
112B PRINT “ 性 出 生 民 .家庭 
.本 人 富 加 和 身 工作 氢 象 误 化 
1138，PRINT“ 蛙 业 站 业 学 授 职 现 向 ”， 
CALL CC 本 
1134 PRINT “ 疼 名 量 | 年 月 若 是 出 身 . 
成 分 圈 时 镶 体 时 曾 B 疝 级 中 冀 职 务 程度 
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1136 PRINT “ 皖 校 时 间 部 >》 专业 职 称 时 人 站] 工作 2 
EEC 

1138 FOR TI = 1 TO 129:， PRINT “: ;: NExXT : PRINT 
0D0$:，GOSUB 1145 
1139 RETURN 
41q4g@POKE 146B + EN,T1，PDOKE 1656 + CN,B，POKE B 
B4B8 + CN,12S，RETURN 

RETURI 
1145 “POKE 32386468 + CN,B: PDOKE 16S56 + CN,B，POKE 14 
BB + CN,B:，RETURN 


在 执行 程序 过 程 中 ， 若 有 错误 发 生 ， 屏 幕 上 即 自 动 显示 
出 错误 类 别 、 名 称 ， 并 自动 返回 “菜单 ”状态 ， 以 下 程序 行 
1150 一 1250 即 为 自动 显示 的 程序 。 程 序 行 1260 一 1270 为 读 记 - 
录 子 程序 。 


.115 ER = PEEK 《Ba7:， PRINT ER 

“116B  F ER = 4 THEN，CRLL HM:， POKE w,3: FOKE H,1 
3，PRINT“ 碰 片 保 文中 "，ceLL cf 

117B IF ER = 5 THEN CALL HM，PDOKE w,3，FOFE H,1 
忆 ，PRINT “和 莫 料 档 么 讲 次 :CALL EC 

118B IF ER = 8 THENH CALL +HM:， POKE ,3 PORKE H,1 
已 : PRINT “ 碰 片 空白 " :CALL CC 

1199 IF ER = 9 THEN CARLL HM: POKE w,3，POKE H, 
中 PRINT “左上 厂 己 满 " CALL CC 

1889 IF ER = 6 THEN CRLL HM，POKE w,3: POKE H,1 
3: PRINT “ 档 条 赣 料 未 建 :cnALL CC 
1B1 日 IF ER = BB THEN CALL HM: PORKE 3: POKE H， 
12: PRINHT “ 重 置 讲 当 ，CALL CC 

1815 IF ER = qd THEN ECALL HM: POKE v,3，PFDOKE H。 
1B，PRINT “有 有 DATRA 语 白 ]0 搞 ! CALL EC 

1EBB IF ER = 355 THEN CALL HM，POKE w%, 3: POKE H 
,1 PRINT “CTRL-C 人 喇 用 错 次 ” ，CALL CC 
1BES IF ER = 2354 THEN CALL HM，POKE .3:，POKE H 
,7 了 :， PRINT “ 寺 TNPUT 不 正太 的 回答 ， ，PALL CC 
teqB PORKE w%,S: POKE H,12: PRINT “请 稍 息 片 去 上 ，Cn 
L Cr FOR TI = 1 TO 1688:I = I + 1: NEXT 

1B5B GOTO 159 

,1BBB 。 PRINT D 趾 ; RS; DA 和 .R 5 工 

1B65S 白 = CE <G> 
La FOR .4 = 1 TO 34: INPUT pcJ2，NEXT J:， PRINT 
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De，RETURN 
Ye86 REM 人事 管 理 程 序 1984.1.38 
-1368 Ti1 = 1: GOTO SB5 


$ 4.3 工资 管理 程序 


4.3.1 程序 设计 思路 

与 上 节 介绍 人 事 管理 程序 不 同 ， 本 节 拟 从 使 用 方面 介绍 
工资 管理 程序 。 利 用 微型 机 进行 工资 管理 ， 将 会 减轻 专业 人 
员 的 劳动 。 程 序 粗 框 如 下 : 


| 修 改 | 


基于 工资 款项 中 大 多 数 项 目 无 须 每 月 改动 ， 而 需 留 一 个 
底 帐 ， 每 月 计算 工资 时 ， 将 底 帐 复制 一 份 ， 然 后 修改 复制 本 
即 可 。 修 改 的 主要 内 容 是 扣 款 部 分 ， 故 在 程序 中 对 工资 款项 
的 前 几 项 一 般 不 做 修改 ， 这 样 可 以 提高 使 用 速度 ,便于 实用 。 
当 要 求 对 工资 应 用 项 目 作 部 分 修改 时 ， 可 对 程序 1410 行 略 加 
改动 就 可 以 了 。 

4.3.2 程序 使 用 简介 
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将 载 有 本 程序 及 其 资料 的 破 盘 插入 磁盘 驱动 器 ， 将 程序 
油 入 内 存 并 运行 ， 屏 幕 上 会 先后 出 现 ， 


闵 半 宁 六 1 主 C-PFLUG II 所 温 卡 站 汝 宋 


中 立 字 形 符 主 约 性 明志 利 计 号，1BB39 


1983-62zeB  E 良 休 络 ，.1 
序 号 183419 
稍 候 ， 屏 幕 上 显示 出 了): 
开工 资 人 数 
单位 名 称 


xxXxxXxx 年 XXX 月 

,使 用 者 须 按 提 示 要 求 键入 所 需 信息 。 疯 如 在 “开工 资 人 
数 ” 后 键入 “50 芝 在 “单位 名 称 ” 后 键入 “吉林 省 气象 科学 
研究 所 男 在 “xxxx 年 xx 月 ”后 键入 1984 年 4 月 。 这 样 ， 
本 程序 就 成 为 吉林 省 气象 科学 研究 所 处 理 1984 年 4 月 份 工 资 
的 程序 ， 它 可 列 出 50 人 的 工资 表格 明细 。 随 着 键入 信息 的 不 
同 ， 可 使 程序 在 各 部 门 通 用 。 

键入 上 述 信 息 后 ， 屏 幕 上 出 现 ， 

我 们 将 把 程序 和 资料 转移 到 另 一 张 磁盘 上 去 。 

现在 开始 工作 吗 ? (Y/N) 

目的 如 前 所 述 ， 是 为 了 保留 底 帐 。 这 时 若 键入 “N”, 屏 
幕 上 出 现 , 再见” 的 字样 ， 程 序 结束 ;， 若 键入 “Y?” 屏 幕 上 


1) 为 了 减少 排版 上 的 困难 ， 屏 幕 显示 的 繁体 字 在 文中 都 以 简体 字 代替 ， 以 下 
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出 现 :“ 现 在 读 资 料 ……” 此 刻 磁 盘 驱 动 器 开始 旋转 ， 资 料 从 
磁盘 进入 主机 内 存 。 当 资料 输入 完毕 ， 喇 叭 发 出 “ 嘟 ”的 一 
声响 ， 接 着 屏幕 上 出 现 : 
请 将 原 磁 盘 取出 ， 换 上 一 张 初始 化 过 的 磁盘 ， 按 RET- 
URN 键 开始 工作 。 
这 时 使 用 者 应 按 提示 要 求 ， 将 原来 磁盘 驱动 器 1 中 的 磁 
盘 取出 ， 播 入 一 张 已 经 初始 化 过 的 磁盘 。 注 意 : 这 张 磁盘 的 
缺口 〈 防 写 口 ) 不 可 封 上 。 然 后 按 下 RETURN 键 ， 磁 盘 红 
动 器 接着 旋转 。 这 一 阶段 的 工作 ， 既 是 在 新 盘 上 复制 资料 库 
以 备 修 改 ， 同 时 程序 本 身 也 被 复制 到 新 磁盘 上 。 
当 复 制 工作 结束 〈 磁 盘 驱动 器 停止 旋转 ) 之 后 ， 屏 幕 上 
出 现 ， 
工资 核准 
执行 项 目 ? 
0: 停机 
1: 列表 
2 : 修改 
这 是 一 张 “ 菜 单 ”, 即 为 工作 状况 选择 。 若 选择 列表 ， 则 
Se 
工资 表 
| 
若 需 硬 拷贝 (打印 机 ) 输出 ， 则 按 “Y?2 反 之 ， 若 只 想 
在 屏幕 上 看 一 看 ,， 则 键入 “N% 当 键入 “Y” 后 ， 屏 幕 上 会 
出 现 ， 打 印 机 已 打开 
开始 列表 序号 
打印 数目 
这 是 提示 从 何 处 开始 打印 及 打印 多 少 。 这 样 做 的 目的 是 :. 
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如 果 开 工资 时 是 按 科 室 领 款 ， 则 可 以 按 科 室 人 数 打 印 出 工资 
单 ， 使 应 用 更 加 灵活 。 

此 时 键入 的 数字 有 两 点 必须 注意 : 

(1) 当 回 符 “ 开 始 列表 序号 ”所 键入 的 数字 小 于 1 或 大 
于 N(N 是 开始 键入 的 开工 资 人 数 ) 时 ， 喇 叭 发 出 “ 哪 ” 的 一 
声 ， 等 待 使 用 者 重新 输入 正确 数字 。 

2) 当 回 答 “ 打 印 数 目 ” 所 键入 的 数字 等 于 零 ， 即 被 认 
为 是 不 打印 ， 返 回 工 作 选 择 状 态 ;， 当 键入 的 数字 超出 可 能 打 
印 的 最 大 数目 〈 可 能 打印 的 最 大 数目 = 总 序号 减 去 开始 列表 
序号 再 加 1 ) 时 ， 喇 叭 发 出 “ 哪 ” 的 一 声 ， 等 待 使 用 者 重新 
输入 。 

在 正确 键入 上 述 提示 后 的 数据 以 后 ， 屏 幕 示 出 : 

xxXxxx (单位 ) xx (月 ) :工资 发 放 明细 表 

(括号 是 说 明 前 面 数 字 内 容 的 ， 在 打印 中 没有 ) 

然后 ， 打 印 出 工资 栏目 以 及 工资 清单 。 ， 

在 列表 完毕 后 打出 总 计 以 及 最 佳 取款 方案 。 总 计 中 对 每 
一 单项 都 做 了 合计 ， 最 后 一 项 为 实 领 金额 合计 。 

财会 人 员 到 银行 取款 或 者 以 科室 为 单位 取款 时 ， 各 种 面 
值 的 人 民 币 究竟 领 多 少 才 能 恰到好处 的 分 配给 每 个 人 ? 针对 
这 个 实用 性 很 强 的 问题 ， 程 序 中 设 定 了 最 佳 取款 方案 ， 巧 妙 
的 解决 了 这 一 问题 。 

在 工作 选择 状态 下 ， 若 选择 修改 方式 〈 即 键入 数字 2 )， 
屏幕 上 出 现 ; 

修改 工资 表 
修改 序号 (0 ， 退 出 ) 

此 时 车 键入 “0 风 则 退出 修改 工作 方式 ， 返 回 工作 选择 

状态 。 
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若 键入 数字 超过 开工 资 人 数 N， 则 喇叭 发 出 “ 哪 ”的 一 
声 ， 等 待 使 用 者 重新 输入 恰当 的 数字 。 

当 键 入 一 个 恰当 的 数字 后 ， 屏 幕 上 列 出 欲 修改 记录 中 的 
三 个 字段 ， 姓 和 名、 级 别 、 基 本 工资 。 然 后 出 现 ， 

改 否 ? (Y/N) 

这 是 给 使 用 者 一 个 改变 主意 的 机 会 。 若 键入 “N” 则 程 
序 返 回 修改 初始 状态 。 

若 键入 “Y2% 则 在 屏幕 下 方 依次 出 现 ; “房租 、 家 俱 、 储 
车 互助、 借款 、 水 电 、 其 它 ” 的 字样 ， 并 在 这 些 汉字 下 边 
给 出 待 修改 的 数字 。 使 用 者 可 以 键入 修改 内 容 ， 然 后 按 回 车 
键 ， 若 有 的 数字 不 必修 改 ， 可 只 按 回 车 键 。 当 上 述 七 项 汉字 
均 出 现 之 后 ， 磁 盘 驱 动 器 指示 灯亮 ， 同 时 驱动 器 旋转 ， 改 写 
工作 完成 。 

4.3.3 一 些 需要 注意 的 问题 

(1) 车 计算 工资 的 人 数 过 多 时 ， 计 算 机 内 存 装 不 下 ， 可 
以 去 掉 自 动 留 底 的 过 程 。 采 取 先 把 资料 库 用 主 盘 上 的 FID 程 
序 复 制 下 来 ， 然 后 改写 的 方式 ， 这 样 可 减少 占用 主机 内 存 。 

(2) 采用 分 段 装 入 的 方式 ， 一 次 装 入 一 部 分 进行 计算 ， 
这 种 方法 适 于 大 单位 使 用 。 

(3) 在 建立 资料 库 以 及 复制 资料 库 过 程 中 可 利用 
“MON” 命 令 ， 进 行 监控 。 

4.3.4 程序 清单 


1] 引 _REM  ， 工 蓝 核准 程序 1984 年 3 月 a5 日 

6 CN = 5 

3 HIMNEM，3E864，POKE 37984: 日 ，PR# CNH，PRINT ”” 
: POKE 43663.3，PFOKE 43664 ,13 + CH 

dg PORKE 43685,48，FOKE d43E688,138 + CH: PORKE 5q9,1 
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B9:，POKE 55,1S8，PFOKE 56,129:， POKE S57,.158，FOR II 
= 1 TO 15: GET 8 种，NEXT 
5B 0D8 = CHR$ 5q27:DP$ = D$ + “DPEN :PCPL$S = b$ + 开 
LOSE :RD 和 = D 事 + “REARD :RS = D$ + “WRITE” 
EB BS = d49152 + 256 k CN:HM = BGSG + Bl:CC = BGS + 
qd4:FE = BS + 36:CL = BS + 39:CF = BS + 4e:H = 3214: 
= DIS 
Pa “CALL HM 
SPOKE ,3，POKE H,8，PRINT “--== 吉 林 省 气象 局 == 
-- :CALL CC . 
s6， POKE H,1B:， PRINT“ 工 巷 管 理 程 序 " :CALL FC 
168。POKE H,13:， PRINT “1984.3.89 “: CRLL CC 
1 FOR TI = 1 TO 569:，NERT 
1E6 CALL HM:，POKE w,d4:， POKE H,3 
136 INPUT“ 闻 工 蓝 人 时 “;N: CARLL CC 
1da PORKE H,3 
159 THFUT “ 香 们 名称: ;HS$。 CALL CC 
169 FL 和 =“ 工商 尾 性 ” 
17B PORKE H,3 
18B TNFUT “ 沁 相 下 来 征 池上 有 目 “:u，CRLL CC 
1938 CALL HM，POKE WwW ,3 
BEB6 Lg8 = “ 伤 工 葛 州 大 8 属 晶 表 ” 
EBPRINT OP$;FL 员 :LILBB 
已 忆 生 DOSUB 187 
23a GTD 165SB 
96 DIM RScN, 1327 .LSc153,FC352 
Sb Le = “ 谢 计 : :LSC17 = “ 基本 工 斯 ， :LSCE27 = “ 
“和 | 车 乔 避 。 :9833 = ”和 全 ”:L$cq>y = 提 生 : 尘 理 ”L$ 
55” = ”六 但 癌 计 " :LSc6E) = 陵 扣 合计 


RE 【上 事 CT2 = 训 1 县 ” :LS$5C92 = 售 
上 事 CTB = = ” 借 蒜 " :LSc122 = 
LSc139 ”其它 "Bclqy =- ” 裤 领 金额 合计 


ERLL _Hh 

FOR 由 = 1 TO 35:Fcly = 日 :MEXT 

POFE H,1a:， PRINHT“ 工 访 楼: 准 CALL CC 

PORKE ww,3。，POKE H,1E，PRINT “B，1 事 机 “:， CaLL 


FORE Hi PRINHT ”1: “ELL CE 
PFDOEE H, Ia FRINHT “ 忆 ， “ :ELL_ CC 
FOLE ws， CRLL CL，FOFE Ne TUEUT 1 


“ET 页 
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目 , ”Be 


.34d9 IFB= BTHEN 1468 


359 IFB <- 3 THEN 3869 

368 “PRINT “CHR$ “72:， GOTO 279 

388 ”ON 8 GOTO 398,1329 

399 CALL HM:TL = 89: FOR TI = 1 TO 15:FCI> = 日 :IE 

XT - 

d488 “POKE_H,18:，PRINT“ 列 工 蓝 家 ，CALL CC 

dl16 POKE H,19，INPUT “了 打 EP 和 0 对 ?<CYN2 9，CRLL 
CC 

d8B IF aag = “YY ”THEN T1 = 1，PDOKE w,1:，POKE H,19 

:， CALL CGL，PRINT “ 打 EPt 几 已 打 和 并” ，PCPLL CC 

438 PbDKE H,1B8: INPUT “ 阴 折 列 天 序号 *P8，CALL CC， 

户 = VARL cPS$3， IFP < 1 DRP >NTHEN PRINT CHR 

$ (77，GOTO 435 

448 PPOKE H,18:， INPUT “ 打 EP 各 目 :”,K$，CRALL CC:K = 
VARL CK$27，IF K = 日 THEN PRINT CHRS 72，GDOTO 

arB 

qd58， IF K >N -Pr+1THEN PRINT CHRS 77， CALL 
CC:， GOTO 44B 

qdEB IF T1 = 1 THEN GOSUB 1649，PRINT 

qd4FB FOR I = 1 TO .189，PRINT“. :NEXT : CALL CC 

q8B ， PRINT “ Hu 

[L 则 ;” “中 位 ， 4 CALL CC 

d49B FOR IT = 1 TO 189:， PRINT“- ::， NEXT :CALL EC 

sag FORT=1TOKI=T+P-1: GOsuB 1489 

S196 GOSUB 1556 


52G6 PRINT 6CT,12 ”PCT,B25 3 


538 IF LENH SR 和 CI 322 = 日 THE PRINT PT 3235: . 
GOTDO SS9 


.5qg@ PRINT ” ”35f 囊 CT,32 
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SS58 PRINT “5 IF LEN〔CPCT,q22 = 日 THEN P 
RINT ” ” :GOTQ 5S7B 

S6B PRINT PCIT ,428 

S7B PRINT ” ”6CT, 5 

SeB IF LENYR 和 CT ED = 日 THEN PRIMT " 

: GOTO BEBB 


S598 FRINT PCIT.B23 1 

EBB 白 = VPRL 5 + VPRL KRCT an + VPRL Ch 
SrT,523 + VAL 5PSCIT,B2 
61B RPR = STR 和 KRosFCL2 = Fl + WwWAL CARCT,322: 
Fe = Fea2 + WARL CARSCT,q425:FV32 = FI37 + YABL ( 


PCT,S22sFCqd2 = FCd4 + MPRL PSBCT.675:FCS7 = FS52 
| 

6EB IF LEN 《PRd2 = 日 THEN PRINT hh$ :GOTO 7e6 

636 IF LEMH CRP = S 用 计 TO 囊 《ARB 31 =“ 

THEN PRINT ”“” :AAS: ，60TD 729 

BqB IF LEM CAARS2 = 5 THEN PRINT PR8 日 :GOTO 

65 昌 IF _ LEN CRPR 和 3 = 号 后 们 ，MIDH CR 和 ,B13 = 

THEN PRINT ” ”Ad :， GOTQ Fe9 

BEB IF LEN CRR 和 2 = 中 THEM PRINT ” ”AR 昌 ;: 

DOTO 786 

BFB IF LE CARS2 = 了 AD MIDS CAR 和 B,17 = “.” 

THEN FRINT ” ”PP 囊 B GOTO 7eg 

BBB IF LEN CRRS2 = 3 引 骨 4 MIO 中 《AP 132 = “ 

THEMH FRINT ” 日 ;PP :GO0TO 7eB 

ES6 IF LEN CAR = 3 THEN PRINT hp .60 :60 

TO_ 73e 

PF6BB IF _ LEN PP = BTHEHN FRINT ” ”AR .6BB ; 

: GOTD ?825 

?Fl1B .IF LEM CARRS2 = 1 THEN PRIMT ” ”AAS， .9B" 

FEB PRINT ” ”; 

73B IF LEN CSrT,727 = 日 THEN PRINT “ ”3 

GOTO 76B 

Pqm IF LENH CpcCT,7>72 = 5 THEM FRINT PRSrT,735 

GOTO FEB 

PS PRINT ” ”35PCT,P3i 

768 PRINT ” ”IF LEM AScI,B23 = 日 THEM PRIN 
” ”5 DOTO ?7eg 

FFD PRINT PCT,B27， 

FS PRINT ” :IF LEM CARSCcT,S37 = 日 THEMH PRIN 

有 全 “5 GOTO 昌 1 蝇 

7S9B IF LENCRSCT,G27 = 吕 THEMH PRIHNT ”“ 

SBD PRTNHT 扩 和 CT,S3， 

BIB PRINT ” ”IF _ LEN CAST,1937 = 日 THENH FRI 

NT 5 GOTO 3B 

SBEB PRINT PCT,，1G62: 

B3B PRIHT :IF LE CRSECT 1152 = 日 THEN FRIT 

MT ” 5 GOTO BE66 

SBd48 ITF LEN KRSCT，1122 = 号 THEM FRIMT 

SSB FRINT PCT,112 
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BEB PRINT ”“”:: IF LENKPCT,1B22 = 日 THEN PRI 
HT ” ”3 GOTO B85 

S7B PRINT f 种 CT, 182: 

B8B PRINT ” ”5 ， IF，LEN 《PHCT,1327 
HT ” “;，:， GOTO 315 有 
Se IF LENH CpSrI,1322 = 4 THEN PRIHT ” .5RBCIT， 
132:“” 5: GO0TQ 319 

go 有 PRINT PSCT,1325”“; 

391 B = YARL PSCI, 7 + VPRL CCT,B22 + YAL KR 
事 CT,927 + VPRL CRCT,1622 + VPRL CARSCI,11227 + My 
L_ xpd$rI,1e23 + RMRL ERSCTIT,1322 

315B= IMT IIB#+k 169 +9.52) 199 

SB BES = STR 5B2 

938 BE$ = STRS [5B2:FCE> = FKE2 + B:FC7》 = FC7> + 

VAL_ CRSCIT,732:Fr82 = FCB + VSL CARSCIT,8272:FC9) 

= Fegay + VARL CA8CT,923 

9qg Fig>y = FC162 + VAL CARSCIT,1923:FC12 = FCil2 
+ VRL KRSCIT,1123:FC122 = FCiB> + YARL 《PSCIT,122 

ssFel32 = FC132 + ARL CA$CIT,1322 

958 IF LEIM 5BB$2 = 日 THEN PRINT BB$; : GOTDO 195 

日 

968 IF LEN <B8B$>7 = 5 和 4D MID$ KBB 员 ,3,17 =“.” 

THREN PRINT ”“”:BB$: : GDTO 1658 


上 


Sra IF LEN 5BB$> = S THEN “PRINT BB$:， 6 ;60TO 


骨 


日 THEM PRI 


1659 
geB IF LEN 5BB$> = 4 ARIND MID 中 〔BE,B,12 = 
THEIN PRINT ” “5BB$; :GOTQ 155S8 


上 


Seg IF _ LEN KBB$> = 4 THEN PRINT ” ;BBS B ;: 
GDTO 1D55 
1968 IF LEN xcEB$7 = 3 RNHD MTDS 5CBB$,B,12 
THEMH RPRRINT ” “:BB$，B' :: GDTO 195S9 

1B1B IF _ LEN 5BBS2 = 3 RND MIDS 〔《BB$,1,132 = 
THEN PRTHT ” 6 ;B6$::， GOTO 1659 

_ 4162B IF LEN KBB$2 = 3 THEN PRINT BB$， .6 ，，6 
DTO 185g 


1638 IF LEN BBS) 
5 :GOTD 16598 

1B846 IF LEN 5BB$? 
“3 GOTO 1658 

1945 PRINT ” 0.89”， 
1958 PRINT ” “3 
1969 C = 上 - 日 ， 


”382 


且 


THEN PRINT ” ”BBS .8B9” 


1 THEN ”PRINT ” “88$， .5 


lasg5C = _ INT C k 169 + 8.5) ”169 

197B CC 下 = STRS (CC2:FC147 = FC14> + C 

1B8B8 IF LEN (CCS) = 6 THEN ”PRINT CC$ ，GOTG 11 

8 

1B98 IF LEN (CC$) = 5 AND MIDS (CC$,3,1> = 
THENH ”PRINT ” ”;CC$，GDTO 1189 

1166 IF LEN CCCS) = 5 THEN ”PRINT CC$， DB，GDOT 

口 1189 

1l1t19 IF LEN CCcS$> = 4 RND MIDS CC,B,12 =” 
HEN PRINT ” “;Cc$ ，GDTO 1188 

1128 IF LEN (CC$> = 4 THEN PRINT ” ;CCS， Bi 
GOTO 1186 

1139 IF LEN CCC$> = 3 RND MIDS$ CCE$,3.12) 
THEN “PRINT ” ”CCgf Be ;GO0TO 11869 

11qdB IF LEN CCC$) = 3 AND MIO$ CCS,1,13 
THEN PRINT ” B "CCc$r :GOTO 1188 

1156 IF LEN CCCS) = 3 THEN PRINT CCBi .68 6 

DTO 1189 

1168 IF LEN CCCS$) 
+， GDTO 1189 


和 


B THEN PRINT ” ”5CC$i .69” 


117B IF LEN 《CCS$> = 1 THEN PRINT ” “”:CCd$i .89 
”GOTO 1186 
1175 PRINT ” 日 -DB 


1189， CALL CC 

11986 .Fl52 = INT《KC 1682:FCli627 = INT SIC -~ FCl 

5S27 冰 167 ~ 523:FClr2 = INT SC -FSC1S2 米 19 + 三 

162 本 S22 BossFxle2 = INT SSC -~- 《Fl152 水 19 + 上 

《1562 玉 瑟 + Fl1F27 水 BO2 一 1> 

1269 Fci9>7 = INT “CC --《FC1S2 本 19 
FCt72> 术 已 +Fele> 光 122 - 昌 .S2:FCEB 

一 《CFK1S2 水 1 + 后 CLB62 枉 二 FSCIF2 水 
+ FKt927 冰晶 .3S22 ~ 日 .7) 

181 和 FCal> = INHT CRC 一 KFC152 玉 1B + FLB7> 可 S 十 
FK1lr2 来 +FCte> 林 1T+ FL192 本 日 .SS + FS9> 水 日 . 
2 日 .123FC222 = IT ARC 一 《FLS2 本 1 + FC1LBE2 
冰 S5+FCir7 冰 Br+FC1IB7 水 1 + Fi9) 水 .5S + FCeg 
7 冰晶.B+FC2l7 半 g.1227 -B.95)> 


+ FKC1G>》 闵 号 十 
2 = INT KEC 
已 + FCl82 本 工 


12239 FC837 = INT 《CC - 5CFC1S52 水 196 + FC1B> 炒 瑟 + 


FC177 炒 吕 + FC187> 米 1 + FCi9> 水 日 5 + FC8627 冰 日 , 
志 + Fet> 本 .1 + FCaa) 冰 B.B657?7 -日 .622> 
1238 FCB47 = INT 《CE - CFCt5? 水 18 + FC162? 水 5 + 
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PFcl7> kk B + File kk 1 + FC1927 k B.5 + FC292 # B. 

Ba + FCBl> #k 6.4 + FCEB) 水 8.B5 + FC23)7 水 日.B22) 

6.81 + 96.5) 

124B8 FS = FCB5) + FC15?,FCB62 = FCB6?7 + FCi6)?， 

FCa7> = FCa7》 + FC17?:*FC28?7 = FCa8? + FC1B2:FC297? 

= F(B9》 + FC197:F(C382 = FC39) + FC2B):FC31? = FC 

312 + Fcat7:FC32> = FC32) + FC22?:FC33> = FC332? + 

FCe3>:FC34) = FC34) + FC84) 

125B NEXT T，PRINT ，FOR K = 1 TO 129，PRINT “ 

1 NEXT :，PRINT 

12668 “PRINT LSCB)+LSC12*FC125L$Ca2:FCB) LS$C327FC3 

75L$C425FCq25LSC525FC52LSC725FC725L$C827;FCB27ILSC 

92;FC92L$C1B27;FC1B27L$Ct125FC1125L$C1B25FCL1B25L$ 

C1325FC1327;L$C625FC625L$C1425FC142，CARLL CC 

1276 “PPOKE H,9，PRINT “最 佳 职 ; 款 方 案 ， CALL CC 

1289，PRINT“ 抬 辆 和 区”“,FC252， 5 “， “ 伍 本 各 ” FCB625 
;起 圈 和 :” ;FCB72! 5 “加 将 ”和 FCa8)， 张 “ 

，" 伍 角 种 * iFCBag921 5 续 “， 
1a9B PRINT ” 融 角 汕 ”,FC392， 张 “， 喜 角 币 ”…FC31) 
“ 张 全 伍 分 种 " FC322，“ 纺 “和 避 分 种 …FC335， 强 
" 井 分 种 " ,FC342， 强 ” 

138B PRINT ，FOR K = 1 TO 188，PRINT “. :NEXT 

CARLL CC，PRINT 

1316 “FDOKE 1485,B，POKE 1661,8，POKE 2645,59，GOT 

DO 279 

1328 “CALL HM 

1339 “POKE H,109:，PRINT “ 修 习 工 该 家 ，CALL CC 

1348 ”PFOKE H,19，INPUT “修改 序号 “8， 退 出 )， ;TI$:T 

= YARL 5I$):， IF I = B THEN 278 

1358 IF TI >N THEN PRINT CHRS 〔7>，GOTO 1346 

1368 “60SUB 1q488 

1378 CARLL CC:， PDOKE ,Ba，PDKE H,6，PRINT hdCI,12 

” 365cT.,B7 “PhSCIT,37，CALL CC 

1388 “CALL CC，POKE H, 18:， INPUT“ 改 否 ?CYAN2 063， 

CALL CC，IF 6 =“N”THEN 1329 

1398 IF 6 =“Y”THEN 1419 

148B PRINT “CHRS (72: GDTO 1389 

1418 FOR J = ? TO 13，POKE v,6，POKE H,5，PRINT 

LS$CJ>，CALL CE 

1428 ”POKE V,7，PDKE H,6，PRINT PCI,J7，CALL CE 

143B 。POKE vV,7，PDOKE H,5，INPUT 0Q8，CALL CCE，IF 

LEN CQ$> < > 日 THEN PCI,J) = 0$ 
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144B MEXT J 

1459 ”GOSUB 1598，GDTO 1328 

1469 ”CALL HM，PDKE V,6，POKE H,12，PRINT“ 再 
网 " ，CALL CC 

147B “PDKE V,8，E 

1489 ”PRINT 

1499 PRINT RD$iFLS$ ,RsI 

1569 FOR J= 1 TO 13 

1518 INPUT 名 CI,.D 

1589 NEXT JJ 

1538 “PRINT DS$ 

1548 RETURN 

1559 ”PRINT ， CALL HM 

1568 PRINT“ 姓 名 级 中 基本 工商 护 煤 补贴 物价 
独 生 洗 理 合 计 顺 租 率 俱 伐 著 互 助 借 和 狼 水 昌 
其 刀 合 计 寡 币 金 辣 “,，cALL CC 

1579 PRINT “人 未 人 EP 1 鞠 注 " ，CALL CC 

1589 ”RETURN 

1598 PRINT UR$;FL$;， ,R TI 

16658 FOR J= 1 T0 13 

161B8 PRINT PCIT,J> 

1EBB NEXT 
.1638 PRINT D$，RETURN 

16q 日 “PDKE 1495,1，PDKE 16B1.3:， POKE 2B45,1239:，RE 
TUR 失 

16S6 PRIM Per, 132 

166D FPOKE H,4，PRINT “我 代 将 把 程序 和 徐 料 畏 黎 吾 | 兄 
一 -5 有 8 兰 姑 上 去 ” :CALL CE 

67 POKE H,6，INHPUT “更 在 开 洛 工作 0 明 ?cy 5 中: 
CALL PC: IF gg = “NTHEN 1466 

189D IF 0 = “9 THEN 17B9 

1639 PRINT “CHR 5 了 72: GOTO 167B 

1769 ， PRINT“ 更 在 计 芒 料 . : CRLL CC 

1748 FOR IT =1TONH ， 

17aB PRINT RD$S;FL 囊 : .R 5 

1739 FOR J= 1 TO 13 

17q 昌 INPUT p 事 CT, 

1758 NEXT : NEXT 

17BB PRINT CLS;FLB$ 人 
17zg PRINT “CHRd$ 《572， CRLL HM: POKE V,3: PDKE H， 
4: PRINT “请 将 原 碰 星 取 出 , 换 上 一 张彻 抬 化 i 遇 的 正夫 ， 
按 RETURH 开 娩 工 作 " :CRLL CC:，INPUT ”3598:， CALL CP 
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417BD PRINT OPS$; FL$Si ,上 L19B 

179B PRINT WRS: FLS ,RGB” 

1989 PRINT “238 ，PRINT “DEL165B, 1B6B”，PRINT “S 
pwE 工 得 核准 程序 " ，PRINT “CALL HM"” ，PRINT “RUM” 
1819 FOR I=1TONH 

1888 PRINT WRS$;FL 叫 :”,R I 

183D FOR J = 1 TO 13:，PRINT 6CI,JD，NEXT 


1B498 NExT 

18586 PRINT 0 中， EXEC ;FL 中 

1B668 E 

1B7B FOR I = 768 TO 775: READ J:，PDKE T,J， NEXT 
188B RETURN 


189B DRATRA 163,D,32,237,253,76,148,353 
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人 
立 


指 


功能 对 照 简 表 


DOS 3.3 和 
功 能 CPM 2.2 MBASIC 
\PPLESOFT 
四 INIT 文 件 名 FORM AT 
格式 化 | (包括 系统 ) COPYB Ai/ 
7 0 
RUN COPY A | COPY( 整 盘 ) 
复 制 | ( 整 盘 ) 
BRUN FLD PJP 
看 磁盘 | CATA1LOG 或 
容 量 | BRUN FID 
二 PRINT PRINT 
了 | FRE(0 ) FRR(0 ) 
列 且 录 | CATALOG DIR FILES 
下 LIST 或 EXEC “PE | 
光 基 区 | 1 下 请 民 和 TYPE 文 件 名 LTST 
文件 名 (对 SC 文件 ) 
内 容 
(对 ASCE 文件) 
| 
清 屏 幕 | HOMEF HOME 
十 中 
清 内 存 | 和 N 巨 WW NEW 
清 变量 | CLEAR CLEAR 
删 程序 行 | D 忆 1L 行 号 DLL 行 号 
跟 踪 | TRACE TRACF 
NO TRACE NO TRACR 
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DOS 3.3 和 


( 续 ) 


功 能 CP7M 2.2 MBASIC 
\PPLPESOFT 
SAVH 文 件 名 SAYVE “文件 名 ?” 
SAVE “文件 
存 盘 名 人 5 A 
SAVE“ 文 件 名 ”， 
P 
1.OA\D 文 件 名 LOAD“ 文 件 名 ? 
取 盘 生计 用 
下 RUN RUN 
行 | RUN 文 件 名 RUN “文件 名 ?” 


， 旗 


LOCK 文 件 名 


UN1LOCK 文 件 名 


RUN“ 文 件 名 ”R 


二 一 一 一 一 一 一 一 


下 
KILL “文件 名 ?” 


删 文件 | DELETE 文 件 名 | ERA 文 件 名 
RENAME 老 名 ,| NAME x 老 名 ?” 
关 - 尖 | REN 新 各 = 老 名 | AS kx 新 名 
自动 执行 | ENTEC 文 件 名 “| SUBMIT 文 件 名 | 
改变 行 号 | 通过 | RENUM 
二 | 
| RUN MERGHe 文 件 名 ” 
程序 连接 | RENUMBER (对 ASCIHI 文 件 ) 
加 | 3 
磁 益 监 督 | MON C，1，O 
| ] 
退出 监督 | NOMONC, 1 O 
返回 系统 | SYSTEM 
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( 续 ) 


DOS 3.3 和 


CP/M 2.2 MBASIC 


APPLESOFT 


PR#86 CTRL-C 


冰河 本 淤 
直上 巾 有 涩 生 


向 顺序 
处 理 
文件 中 
加 内 容 


OPEN“02%# 
1 ，“ 文 件 名 ? 
PRINT 并 1， 
表达 式 CLOSE 


D$=CHR$ (4) 
PRINTD$， 
4OPEN 文 件 名 ? 
PRINTD $， 
“DELETE 文 件 
各? 

PbRINTD$， 
4OPEN 文 件 名 ? 
PRINTD$， 
“WRITE 文件 
名 史 

PRINT 内 容 
PRINTD$， 
“CLOSE?” 


D$=CHR 和 (4) 
PRINTD 下 ， 
4APPEND 文 件 
名 ? 
PRINTD$， 
“WRITE 文件 名 ” 
ERINT 内 容 
PRINTD$， 
“CLOSEy” 


见 书 中 介绍 


半 六 村 弘 
训 脱 筷 压 


| 二 
“文件 名 ” 
INPUT 并 1， 变 
量 CLOSE 


D$=CHRd$ (4) 
PRINTDd$， 
“OPEN 文 件 名 ” 
PRINTD4， 
“READ 文 件 名 ?” 
人 PUT 变量 
PRINTDd， 
“CLOSE?" 
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DOS 3.3 和 
APPLESOEFT 


CP/AM 2.2 


D$=CHR$(4) 
PRINTD$， 
“OPEN 文 件 名 ， 
了 区 
PRINTDd$， 
4WRITE 文 件 名 ， 
民 ;区 
PRINT 内 容 
PRINTD$， 
“CLOSEY” 


D$=CHRS$ (4) 


PRINTD 和 4， 
“OPEN 文 件 名 ， 
国 
PRINTD$， 
“READ 文 件 名 ， 
RR 7 
[INPUT 变量 
PRINTD$， 
4<aCLOSE9” 


( 续 ) 


MBASIC 


OPEN“R>”， 并 
1,“ 文 件 名 >”， 记 
录 长 度 
FIELD 共 1， 定 
义 区 段 

LSET (或 
RSET) 
PUT 共 1 
CLOSE 


OPEN “R”， 并 
1 ,“ 文 件 名 ”， 记 : 
录 长 度 
FIELD 检 1， 定 
义 区 段 

GEFT 闪 二 
转换 成 变量 
CLOSE 


只 


DOSAPPLESO FT 


ABS 
APPEND 
ASC 

ATN 
CATALOG 
CHRS 
CLEAR 
CLOSE 
COLOR 


COPY 下 IELES 


COS 
DATA 
DEF 
DEL 

DE 屯 LE 马 工 E 
DIM 
END 

已 XEC 

了 入 忆 
FLASH 


FOR NEXT 


FRE (0) 
GOSUB 


18 
112 
120 
110 


40 


23 
37 
19 


指令 和 函数 索引 


GOTO 25 
GR 120 
HCOLOR 122 
HGR 122 
HGR2 122 
HLIN 121 
HOME 18 
HPLOT 122 
HRTAB 19 
IF GOTO 26 
IF THEN 25 
INIT 56 
INPUT 22 
INT 39 
INVERSE 38 
LEFT 40 
LEN 40 
LET 21 
LIST 44 
LOAD 64 
LOCK .65 
LOG - -39 
MAXFILES 111 
MID 4 氏 
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MON 
NEW 
NOMON 
NORM AL 
ON ERR 
GOTO 
ON GOSUB 
ON GOTO 
OPEN 
PEEK 
PLOT 
POKE 
POSITION 
PRINT 
READ 
RED 
REM 
RENAME 
RESET 
RESTORE 
RETURN 
RIGHT 
_RND 
RUN 
SAVE 
SCRN 
SGN 
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72 
18 


73 
38 


29 
28 
27 
72 
38 

121 
38 
83 
17 
23 
39 
33 
66 
14 
23 
14 
40 


39 


18 
65 
121 
39 


SIN 
SPC 
SQR  - 
STOP 
STRS 
工 AB 
TAN 
工 已 X 工 
TRACE 
UNLOCFK 
VAL 
VERIFY 
VLIN 
VTAB 
WRITE 
CP/M . 
MB AS IC 
ABS 
ASC 
ATN 
AUTO 
日 已 EP 
CALTL 
CDBL 
CHAIN 
CHRS 
CINT 


CLEAR 
CLOSE 
COLOR 
COMMON 
CONT 
COPY 
COS 
CPM56 
CSNG 
CVD 

CVI 

CV9 
DATA 
DEF DBL 
DEF FN 
DEF INT 
DEF SNG 
DEF STR 
DEF USR 
DEL 
DIM 

DTR 
EDIT 
END 
EOF 
ERA 
ERASE 


172 
172 
173 
173 
175 
150 
221 
150 
221 
214 
214 
214 
175 
175 
175 
175 
175 
175 
176 
176 
176 
147 
176 
178 
224 
148 


178 


ERL 
ERR 
ERROR 
EXP 
FIELD 
FILES 
FIX 
FORM AT 
FRE 
GET 
GOSUB 
GOTO 
GR 
HCOLOR 
HEX 
HGR 
HLIN 
HOME 
HPLOT 
HSCRN 
HTAB 
IF THEN 
ELSE 
INKEYW 
INPUT 
INPUT 间 
INPUT 


INSTR 
INT 
INVERSE 
KILL 
LEFTS 
LEN 
LET 
LINE 
INPUT 
LINE 
INPUT# 
LIST 
LLIST 
LOAD 
LOC 
LOF 
LOG 
LPOS 
LPRINT 
LPRINT 
USING 
LSET 
MEFERGE 
MIDS$ 
MKDW$ 
MKIY 
MKSW 
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NAME 
NEW 
NEXT 
NORM AL 
NOTRACE 
ON ERROR 
ON GOSUB 
ON GOTO 
OPEN 
OPTION 
BASE 
PEEK 
PIP 
PLOT 
POKE 
POP 
POS 
PRINT 
PRINT 
USING 
PRINT 并 
PRINT 并 
USING 
PUT 
RANDOMIZE 
READ 
REM 


191 
191 
180 
191 
199 
191 
191 
191 
192 


192 
226 
156 
192 
192 
193 
226 
193 


193 
193 


193 
194 
194 
194 
195 


REN 
REPNUM 
RESE 个 
RESTORE 
RESUME 
RETURN 
RIGHT$ 
RND 
RSET 
RUN 
SAVH 
SCRN 
_SGN 

SIN 
SPACE$ 
SPC 
SQR 
STAT 
STOP 
STR 


148 
195 
196 
196 
196 
]81 
224 
222 
189 
197 
197 
226 
222 
222 
224 
226 
222 
150 


198 


224 


STRING$ 
SWAP 
SYSTEM 
TAB 
TAN 
TEXT 
TRACE 
下 蕊 PE 


USR 


VAL 
VARPTR 
VLIN 
VPOS 
VTAB 
WAIT 
WHILE 
WEND 
WIDTH 
WRITE 
WRITE 并 


224 
198 
198 
227 
222 
199 
199 
148 
227 
224 
227_ 
199 
227 


200 


200 


200 
201 
201 
202 
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